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ABSTRACT 


This  report  describes  the  algorithms  used  in  com¬ 
puting  a  navigation  fix  from  data  provided  by  receivers  of 
the  2-minute  integrated  doppler  type  designed  to  operate 
with  the  Navy  Navigation  Satellite  System.  The  theoretical 
basis  for  calculating  the  change  in  range  from  the  naviga¬ 
tor  to  the  satellite  as  a  function  of  the  integrated  satellite 
doppler  shift  data  is  developed.  The  original  receiver  of 
the  integrated  doppler  type,  the  AN/SRN-9,  is  briefly  de¬ 
scribed  in  its  developmental  versions,  designed  by  A  PL, 
and  its  production  versions,  built  by  ITT,  The  Scripps/ 
ONR  702CA  receiver,  built  by  Magnavox  and  used  for 
oceanographic  research  applications  of  integrated  doppler 
navigation,  is  also  described. 

The  geometrical  basis  of  the  equations  for  obtain¬ 
ing  a  navigation  fix  is  developed.  The  formatting  and  pro¬ 
cessing  of  the  receiver  data  for  the  navigation  solution  are 
described  preparatory  to  a  presentation  of  step-by-step 
procedures  for  computing  a  three -variable  navigation  fix. 
Procedures  for  calculating  satellite  alerts,  using  data 
from  the  navigation  solution,  are  also  described.  A  repre¬ 
sentative  FORTRAN  program  for  obtaining  a  navigation  fix 
and  for  calculating  alerts  is  presented. 

Information  is  also  provided  on  scaling  for  the 
navigation  fix  computations,  on  the  calculations  for  a  four- 
variable  (velocity  north)  navigation  solution,  on  the  pro¬ 
cedures  for  applying  a  correction  for  tropospheric  refrac¬ 
tion,  on  a  computer  program  for  geodetic  coordinate  trans¬ 
formation,  and  on  nonstandard  numerical  computation 
routines  applicable  to  the  navigation  program. 
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PREFACE 


In  support  of  the  Naval  Electronic  Systems  Com¬ 
mand,  the  Applied  Physics  Laboratory  is  responsible  for 
the  development  and  evaluation  of  integrated  doppler  satel¬ 
lite  navigation  equipment  and  programs.  In  partial  fulfill  • 
ment  of  this  responsibility,  this  report  presents  the  com¬ 
puter  program  requirements  for  the  2 -minute  integrated 
doppler  satellite  navigation  computations.  The  report  is 
intended  to  provide  all  the  information  necessary  for  writ¬ 
ing  a  digital  computer  program  to  obtain  a  position  fix  us¬ 
ing  data  from  the  Navy  Navigation  Satellite  System. 

The  information  presented  updates  the  program  re¬ 
quirements  given  in  TG  81S-1  (Ref.  1)  and,  in  addition,  in¬ 
cludes  the  on-line  data  processing  procedures  that  are  re¬ 
quired  before  the  calculation  of  a  real-time  navigation  fix. 
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1.  NAVY  NAVIGATION  SATELLITE  SYSTEM 


The  Satellite  Navigation  System  developed  by  the 
Department  of  the  Navy  is  a  worldwide,  all-weather  navi¬ 
gation  system  that  can  provide  a  navigational  fix  at  inter¬ 
vals  of  approximately  2  hours  or  less.  The  system  is 
shown  schematically  in  Fig.  1  and  consists  of  near-earth 
satellites,  tracking  stations,  injection  stations,  a  com¬ 
puting  center,  and  shipboard  navigation  equipment. 

The  system  employs  the  doppler  effect  for  both 
satellite  position  determination  and  navigation.  In  the 
former,  four  tracking  stations  in  precisely  known  loca¬ 
tions  observe  the  doppler  shift  of  the  ultrastable  radio 
signals  generated  by  the  satellite  transmitter  as  the  satel¬ 
lite  approaches  and  recedes  from  the  stations.  This 
doppler  information  is  translated  into  satellite  positions 
as  a  function  of  time  by  the  computing  center.  From  this 
information  and  with  the  knowledge  that  the  motion  of  the 
satellite  is  governed  by  Newton's  laws  of  motion,  the  posi¬ 
tion  of  the  satellite  as  a  function  of  time  can  be  predicted. 
These  predictions  become  the  ephemeris  of  the  satellite 
for  the  predicted  duration  (16  hours)  and  are  stared  in  the 
memory  of  the  satellite  by  the  injection  station.  As  the 
satellite  orbits  the  earth,  it  continually  reads  out  data 
from  which  its  position  can  be  computed  together  with 
precision  time.  This  transmission  is  continually  updated 
by  the  satellite  by  discarding  obsolete  data  and  drawing 
more  timely  data  from  its  memory.  To  determine  his 
position,  a  navigator  equipped  with  shipboard  navigation 
equipment  need  only  observe  the  doppler  shift  in  the  satel¬ 
lite  signals,  obtain  the  data  on  the  satellite  position,  and 
perform  the  necessary  computations.  The  navigator  re¬ 
mains  completely  passive;  i.  e. ,  no  interrogation  of  the 
satellite  is  necessary. 

The  ground  support  system  consists  of  tracking 
stations  to  receive,  record,  and  digitize  doppler  signals 
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from  the  satellites;  a  computing  center  where  future  orbits, 
orbital  parameters,  and  time  corrections  are  computed; 
and  an  injection  station  to  transmit  these  new  orbital  param¬ 
eters  and  time  corrections  to  the  satellite.  In  addition,  the 
satellite  time  signals  are  compared  with  Universal  Time. 
This  information  is  used  in  the  computing  center  for  the 
time  correction  computations.  The  U.  S.  Navy  Astronautics 
Group,  with  headquarters  at  Point  Mugu,  California,  is 
responsible  for  operating  the  system. 

Figure  2  shows  a  block  diagram  of  the  AN/SRN-9 
system.  The  purpose  of  this  report  is  to  provide  detailed 
information  for  the  navigation  solution  and  alert  computa¬ 
tions  shown  as  part  of  the  computer  programming.  The 
descriptions  of  the  remainder  of  the  system  provided  in  this 
report  are  intended  to  provide  background  information  only 
and  are  not  a  specification  of  any  form. 
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2.  INTEGRATED  DOPPLER  MEASUREMENT  OF  SLANT 

RANGE  CHANGE 


Integrated  doppler  navigation  is  based  on  the  con¬ 
cept  that  the  integral  of  the  doppler  shift  of  the  satellite 
signal,  as  observed  by  the  navigator,  over  a  fixed  time 
interval  is  a  measure  of  the  change  in  the  slant  range  from 
the  satellite  to  the  navigator  over  this  same  interval  (Fig. 

3).  The  theory  of  the  slant  range  change  measurement  is 
as  follows: 

A  satellite  signal  transmitted  at  time  with  slant 
range  S^  will  be  received  by  the  navigator  at  time  t^  +  S^/c. 
If  the  satellite  is  transmitting  a  stable  signal  at  frequency 
(fQ-f)  continuously  between  transmission  of  two  time  mark 
signals  (transmitted  at  times  tj.  and  the  ground  obser¬ 

ver  will  count  (f0-f)XT  cycles  for  the  interval  between  re¬ 
ceipt  of  the  time  markers  (t  =  tk  -  tk_j).  The  frequency 
of  this  received  signal  will  be  denoted  %(t)  and  the  receiver 
reference  frequency  fQ.  A  difference  frequency  therefore 
exists  in  the  ground  receiver  of  frequency  f0-iR(t).  The 
total  number  of  cycles  of  this  difference  frequency  between 
receipt  of  two  satellite  time  marks  is  measured  by  count¬ 
ing  positive  zero- crossings  between  times  t^.j  +  S^_ijc 
and  +  Sj c/c.  The  apparent  doppler  count  accumulation 
at  a  particular  frequency  (nominally  fQ)  between  receipt  of 
two  such  successive  time  marks  is  therefore: 
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i.e.,  as  noted. 


Sk 

t,  +  — 
k  c 

/ ' 


fD  (t)  dt  =  <f  -  1)T 
rt  O 


T  +  k~j. 
k-1  c 


where 


T  =  *k '  W 

f  =  reference  frequency, 

T  =  constant  satellite  offset  frequency,  and 
c  =  vacuum  speed  of  light. 


Therefore 


Nk  -T  <Vsk-i)  +  fT- 


from  which  the  apparent  slant  range  change  over  the  k  th 
interval  is 


S,  =  S.  =  L  N,  -  f  L  r , 
k-1  k  ok  o 


where 


Lo=  f 


=  vacuum  wavelength  at  reference 
frequency  f  . 
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The  quantity  would  be  an  exact  measure¬ 

ment  of  the  slant  range  change  if  the  process  took  place  in 
a  vacuum.  The  slant  range  change  of  Eq.  (4)  is  the  effec¬ 
tive  RF  path  length  change  in  the  refractive  media  through 
which  the  RF  energy  must  pass  to  reach  earth.  There¬ 
fore,  the  doppler  cycle  count  must  be  corrected  for  refrac¬ 
tion  to  make  it  correspond  more  nearly  to  a  vacuum  dopp¬ 
ler  count. 

Details  of  the  correction  for  ionospheric  refraction 
as  implemented  in  the  A  PL,  International  Telephone  and 
Telegraph  Company  (ITT),  and  Magnavox  equipment  are 
given  in  Section  3. 
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3.  INTEGRATED  DOPPLER  TRACKING  EQUIPMENT 

DEVELOPMENTAL  AN/SRN-9  EQUIPMENT 

In  the  early  stages  of  the  APL  development  of  re  - 
ceiving  equipment  for  use  in  the  integrated  doppler  count 
method  of  navigation,  the  technical  approach  was  centered 
around  a  single -frequency  system.  It  was  recognized  that 
the  use  of  a  single -frequency  system  operating  at  the 
higher  frequencies,  i.e.,  400  MHz,  would  T*esult  in  a  navi¬ 
gation  error  of  approximately  1  nmi  because  of  the  refrac¬ 
tion  effect  of  the  ionosphere.  The  elimination  of  the  re¬ 
quirements  for  a  150-MHz  phase -locked  receiver,  for  a 
more  complex  antenna  with  dual  preamplifiers,  and  for  re¬ 
fraction  correction  equipment  appeared  desirable  in  terms 
of  the  resultant  equipment  simplification  and  lower  cost. 
The  single -frequency  system  was  built  in  breadboard  form 
at  the  Laboratory,  and  the  feasibility  of  the  system  demon¬ 
strated  in  mid-1961.  A  block  diagram  of  this  system  is 
shown  in  Fig.  4. 

The  design  of  a  two -frequency  system,  shown  in 
block  diagram  form  in  Fig.  5,  was  begun  by  the  Labora¬ 
tory  about  the  same  time  the  single -frequency  system 
reached  its  breadboard  stage.  This  design  effort  dis¬ 
closed  that  since  the  two  received  frequencies  are  always 
in  constant  ratio  within  a  few  parts  in  10"®  (the  order  of 
the  refraction  effect)  the  second  receiver  need  not  be  a 
phase -locked  receiver,  but  could  be  merely  slaved  to  th* 
400-MHz  phase-locked  receiver.  The  two-frequency  sys¬ 
tem  design  was  developed  and  tested  as  an  engineering 
model  and  subsequently  developed  into  a  prototype  form 
designated  XN-5.  No  further  development  of  the  single - 
frequency  system  was  undertaken  by  the  Laboratory. 

Basic  to  the  design  of  both  systems  is  the  stable 
oscillator.  Any  bias  in  measuring  frequency  that  io  main¬ 
tained  over  a  pass  (as  opnosed  to  point-to-point  noise  with¬ 
in  a  pass)  produces  a  proportional  error  in  position.  T..e 
assumption  is  made,  therefore,  that  the  frequency  of  the 
local  oscillator  is  an  unknown.  This  assumption  requires 
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that  the  measurements  and  computations  needed  for  a  navi¬ 
gation  fix  be  arranged  to  eliminate  the  value  of  the  fre¬ 
quency  of  the  oscillator.  When  this  elimination  is  done 
properly,  the  only  stability  required  is  five  parts  in  10*1 
over  a  2 -minute  period.  Such  stability  can  be  achieved, 
and  a  carefully  chosen  crystal  in  a  thermostatically  con¬ 
trolled  oven  with  a  large  thermal  time  constant  is  entirely 
adequate. 

The  AN/SRN-9  (XN-5)  receiving  equipment  has 
five  basic  elements:  (1)  the  antenna  and  preamplifiers, 

(2)  the  receiver -demodulator,  (3)  the  digital  section, 

(4)  the  control  group  (output  section),  and  (5)  the  5-MHz 
oscillator  (Fig.  6), 

The  antenna  is  a  whip  over  a  ground -plane  mounted 
on  the  superstructure  of  the  ship,  along  with  preamplifiers 
for  the  150-  and  400-MHz  signals  . 

The  receiver-demodulator  contains  circuitry  to 
perform  the  following  functions: 

1 .  Selectively  track  a  satellite  signal  after  manual 
lock -on. 

2.  Demodulate  the  binary  data  from  the  carriers. 
Figure  7  shows  the  binary  modulation  format. 

3.  Provide  timing  signals  to  the  digital  section  at 
the  doublet  (half  bit)  rate  (one  every  9.  83  ms)  as 
derived  from  the  doublet  coding  in  the  satellite 
messages. 

4.  Produce  a  sequence  of  pulses  from  which  a 
refraction  corrected  doppler  count  is  obtained. 

These  functions  are  described  in  detail  on  the  following 
pages. 

The  higher  frequency  signal  transmitted  from  the 
satellite  is  400  MHz  -  fjj,  where  fjj  **  32  kHz,  since  the 
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THE  PHASE  OF  THE  DOPPLER  SIGNAu  IS 
ADVANCED  AND  THEN  RETARDED  TO  REPRE¬ 
SENT  ONE  POLARITY.  RETARDED  AND  THEN 
ADVANCED  FOR  THE  REVERSE  POLARITY. 
EACH  HALF  BIT  IS  TRANSMITTED  TWICE,  THE 
SECOND  TIME  IN  REVERSE  POLARITY. 


"1"  =  ADVANCE-RETARD-SPACE 

RETARD-ADVANCE-SPACE 

“0"  =  RETARD-ADVANCE-SPACE 

ADVANCE-RETARD-SPACE 

BIT  RATE  5S  50/S 


Fig.  7  COMMUNICATION  LINK  MODULATION  WAVEFORMS 
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frequency  offset  is  nominally  80  ppm.  This  signal  is  shifted 
dj^  because  of  the  doppler  effect  and  *h  because  of  ionospheric 
refraction.  For  the  system  parameters  used  dH  is  between 
±10  kHz  and  is  between  ±3  Hz.  The  set  receives  a  signal 
from  the  satellite  on  a  whip  antenna  at  a  frequency  of  400 
MHz  -  fjj  +  dfj  +  This  signal  is  amplified  in  a  400 -MHz 
automatic  gain  controlled  (AGC)  preamplifier  with  a  maxi¬ 
mum  gain  of  70  dB,  a  bandwidth  of  1  MHz,  and  a  noise  figure 
of  10  dB. 

The  signal  from  the  preamplifier  then  is  mixed  with 
a  local  HF  reference  signal.  The  resulting  5 -MHz  differ¬ 
ed  e  frequency  is  amplified  in  a  high  gain,  3 -kHz  bandwidth 
5  MHz  IF  amplifier. 

The  IF  output  is  fed  in  parallel  to  two  phase  com¬ 
parators  in  which  it  is  compared  with  the  phase  of  quadra¬ 
ture  components  of  a  stable  5 -MHz  reference  signal. 

The  phase  comparator  produces  a  DC  voltage  that  is 
used  to  detect  phase  or  frequency  errors  in  the  RF  frequency 
and  control  a  second  order  frequency /phase  loop,  which 
maintains  the  frequency  and  phase  relationship  between  the 
RF  reference  signal  and  the  received  signal. 

The  stable  5 -MHz  reference  oscillator  uses  design 
concepts  similar  to  those  used  in  the  satellite  oscillator, 
i.  e. ,  a  thermostatically  controlled  oven  with  a  very  long 
thermal  time  constant  between  the  oven  and  a  monel  slug, 
which  contains  the  critical  circuits.  Since  the  vacuum  of 
space  is  not  available  for  the  earthbound  oscillator,  a  great 
amount  of  thermal  insulation  is  used,  resulting  in  a  rela¬ 
tively  large  physical  size. 

The  5 -MHz  stable  reference  frequency  is  multiplied 
by  a  factor  of  81  to  405  MHz.  The  difference  between  this 
frequency  and  the  locally  generated  RF  reference  signal  is, 
provided  the  phase-locked  loop  is  tracking  a  signal,  the 
amount  by  which  the  received  signal  is  below  400  MHz,  i.  e. , 
fjj  -  djj  -  €  jj.  A  pulse  generator  converts  the  doppler  cy¬ 
cles  from  the  doppler  mixer  into  pulses. 
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The  150-MHz  receiver  is  slaved  to  the  400-MHz  re¬ 
ceiver  to  "listen"  to  a  very  narrow  20 -Hz  bandwidth  portion 
of  the  RF  spectrum  centered  at  a  "predicted"  frequency  ex¬ 
actly  3/8  of  the  frequency  tracked  by  the  400  MHz  phase - 
locked  receiver.  The  slaved  ..  iver  produces  two  signals 
at  the  difference  frequency  between  the  predicted  frequency 
and  the  150-MHz  signal  received.  The  relative  phase  of 
these  sifnals  indicates  whether  the  150-MHz  signal  is  above 
or  below  3/8  of  the  high  frequency  signal. 

The  satellite  transmits  as  its  lower  frequency  150 
MHz  -  f^  (where  w  12  kHz),  i.  e. ,  3/8  of  the  high  fre¬ 
quency  transmitted.  This  signal  is  shifted  by  doppler  and 
ionospheric  effects  to  a  received  frequency  of  150  MHz  - 
fL  +  dL  +  €  l-  The  doppler  shift  is  proportional  to  fre¬ 
quency,  but  the  ionospheric  refraction  shift  has  been  found 
to  be  inversely  proportional  to  frequency.  The  received 
frequency  may  then  be  expressed  as, 

150  MHz  +  3/8  <-fH  +  dH)  +  8/3  eH. 

A  local  reference  signal  at  3/8  of  the  high  frequency 
local  reference  signal  is  mixed  with  the  amplified  low  fre¬ 
quency  signal  with  the  following  results: 


3/8  [405  MHz  -  f„  +  d„  +  €„}  -  [150  MHz  +3/8  (-f„  +  d„)  + 

ri  ri  ri  rl  ri 

8/3  €„]  =  1.  875  MHz  +  [3/8  -  8/3]  C„  =  (5) 

ri  ri 

1.  875  MHz  -  55/24  €  . 

ri 

Because  55/24  Cjj  is  typically  less  than  5  Hz,  this 
signal  can  be  amplified  in  a  very  narrow  20 -Hz  bandwidth 
IF  amplifier.  AGC  detection  may  safely  be  performed  in 
this  narrow  bandwidth. 

The  phase  rt  lationship  of  this  RF  output  and  the 
stable  reference  oscillator  determines  whether  the  refraction 
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correction  adds  or  deletes  cycles  from  the  doppler  count. 
The  corrected  doppler  pulse  train  is  then  counted  in  the 
doppler  accumulator  to  measure  satellite  slant  range  change 
during  the  count  interval. 

The  400-MHz  phase  comparator  also  produces  a  sig¬ 
nal  whose  voltage  excursions  versus  time  are  an  accurate 
representation  of  the  phase  excursions  of  the  input  signal 

■  /  '  in  Fig.  8.  The  decoder  accepts  these  doublet  data 
fr  •'  •-  phase  comparator,  synchronously  detects  them, 

.  rts  them  to  a  binary  format  compatible  with  the 
q  action.  The  synchronous  detection  is  followed  by 

an  integration  with  end-of-bit  sampling  to  afford  maximum 
immunity  from  noise  errors.  The  properly  timed  gating 
signals  required  for  synchronous  decoding  are  derived 
from  the  digital  section. 

The  decoder  thus  associates  the  adjacent  doublets 
in  the  received  signals  with  appropriate  binary  bits.  The 
process  is  initiated  with  an  arbitrary  association  of  adja¬ 
cent  doublets.  The  resulting  binary  bits  are  observed  in 
the  digital  section,  and  pulses  generated  by  the  pairing  of 
doublets  are  counted.  If  the  count  exceeds  a  specified 
threshold  the  doublet  association  is  reversed,  and  the  cor¬ 
rect  pairing  of  doublets  into  binary  bits  is  achieved.  Bi¬ 
nary  data  are  sent  serially  from  the  receiver-demodulator 
into  the  digital  unit. 

A  precise  timing  signal  based  upon  the  message 
modulation  rate  is  derived  in  an  internal  clock  in  the  re¬ 
ceiving  equipment.  This  synchronized  internal  clock  con¬ 
trols  the  decoding,  printing,  and  doppler  count  gating 
operations  with  an  accuracy  of  better  than  0.2  ms.  Be¬ 
cause  the  operational  satellites  transmit  the  end  of  message 
word  two  at  each  Universal  2 -minute  Time  ±500  /is,  ade¬ 
quate  time  information  is  obtained  from  the  satellite  for 
navigation  and  doppler  gating. 

The  digital  section  contains  shift  registers  for  ac¬ 
cumulating  the  doppler  count  and  for  storing  the  serial  bi¬ 
nary  data  decoded  from  the  satellite  messages. 
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Fig.  8  AN/SRN-9  (XN-5)  REFRACTION  CHANNEL  WAVEFORMS 
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The  digital  section  also  contains  an  output  register 
and  the  necessary  counting  and  control  logic  to  organize  the 
satellite  messages  into  words  and  digits  (output  format  con¬ 
trol).  It  also  programs  the  data  and  other  timing  signals  to 
the  output  terminals.  The  message  data  are  extracted  in 
four -bit  groups  (i.  e. ,  excess-three  binary  coded  decimal 
format).  Control  signals  are  available  to  take  all  data 
(every  word)  or  select  only  every  sixth  word  (all  that  is 
necessary)  for  normal  navigation. 

The  data  used  by  the  integrated  doppler  navigator 
are  contained  in  words  8,  14,  20,  26,  etc.,  up  to  128. 

These  words  include  the  satellite  orbit  parameters;  the  out¬ 
put  format  control  selects  these  v'ords  and  prints  them  out 
on  a  paper  tape  along  with  the  integrated  doppler  count. 

The  control  group  of  the  receiving  equipment  in  its 
simplest  form  produces  a  printed  tape  listing: 

1.  Between  three  and  eight  accumulated  refraction 
corrected  doppler  counts,  each  for  a  2 -minute  period  and 
with  end  points  precisely  governed  by  satellite -transmitted 
Universal  Time  2 -minute  marks. 

2.  Between  three  and  eight  readouts  of  the  satellite  - 
stored  orbit  parameters,  defining  satellite  positions  every 

2  minutes. 

All  equipment  control  functions  are  provided  by  a 
control  group  packaged  with  the  numerical  printer.  Figure 
9  shows  one  control  group-printer  configuration.  The 
printer  in  this  configuration  prints  eight  of  the  nine  digits 
of  the  satellite  word.  Other  later  control  group  configura¬ 
tions  print  all  nine  digits. 

From  the  control  group,  the  navigator  can  monitor 
the  operation  of  the  equipment.  In  operation,  the  navigator 
remotely  tunes  the  400-MHz  receiver  from  whence  it  ob¬ 
tains  all  necessary  control  functions. 
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A  sample  of  the  nine  digit  printer  output  is  shown 
in  Fig.  10.  The  first  line  is  one  value  of  the  total  re¬ 
fraction  corrected  cycle  count  for  the  previous  2  min¬ 
utes.  The  second  line  is  the  orbital  information  for  the 
epoch  6  minutes  before  the  beginning  of  the  2 -minute 
interval,  followed  by  the  orbital  information  for  the 
epoch  4  minutes  before,  and  so  on  through  the  informa¬ 
tion  for  the  epoch  8  minutes  after  the  end  of  the  2- 
minute  interval.  After  these  8  lines,  there  occur  17 
lines  of  data  from  the  fixed  portion  of  the  satellite 
memory.  Following  these  lines  of  data  there  is  another 
readirg  of  the  doppler  counter.  This  reading  is  readily 
distinguished  from  the  orbital  data  by  the  different  num¬ 
ber  of  digits  in  the  line.  The  shifting  of  the  ephemeral 
or  variable  portion  of  the  memory  can  be  observed  by 
noting  the  next  8  lines  of  the  printout.  The  single  and 
double  signs  at  the  beginning  of  the  fixed  and  ephemeral 
readout  are  a  code  that  is  described  in  Section  5. 

In  summary,  for  any  satellite  pass  the  following 
sequence  of  events  will  occur  in  the  receiving  equipment; 

1.  The  receiver -demodulator  is  manually  locked 
onto  the  satellite  signals  and  phase  tracks  during  the  satel¬ 
lite  pass. 

2.  The  receiver-demodulator  begins  decoding  the 
binary  data  based  on  an  arbitrary  association  of  adjacent 
doublets. 

3.  The  digital  section  monitors  the  decoded  data 
and  properly  pairs  the  demodulated  doublets  to  form  binary 
bits.  When  the  proper  pairing  is  achieved,  the  digital  sec¬ 
tion  energizes  the  bit  synchronization  line. 

4.  The  counting  and  control  logic  is  reset  by  the 
synchronization  word  in  the  satellite  data  format.  The  first 
time  the  synchronization  word  is  received  after  bit  syn¬ 
chronization,  the  digital  section  outputs  a  synchronization 
pulse.  A  2-minute  Universal  Time  pulse  is  also  generated 
each  time  the  synchronization  sequence 
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EPHEMERAL  READOUT 


FIXED  MEMORY  READOUT 


DOPPLER  CYCLE  COUNT 


Fig.  10  AN/SRN-9  (XN-5)  DOPPLER  AND  ORBITAL  PARAMETER  NINE-DIGIT  PRINTOUT 
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(0111111111111111111111110) 
is  received. 

5.  The  counting  and  format  control  logic  in  the 
digital  section  governs  the  handling  of  the  binary  data  from 
the  satellite  and  the  accumulation  and  output  of  the  doppler 
count. 

6.  The  2 -minute  doppler  count  and  satellite  mes¬ 
sage  data  are  printed  out  in  decimal  form  ou  the  control 
group  printer. 

7.  Whenever  an  interrupt  in  the  satellite  signal 
occurs,  bit  synchronization  must  be  reestablished. 

Reference  2  is  a  detailed  description  of  the  AN/ 
SRN-9  (XN-5)  Radio  Navigation  Set. 

RADIO  NAVIGATION  SETS  AN/SRN-9  AND  AN/SRN-9A 

Under  contract  to  the  Naval  Ship  Systems  Command, 
ITT  has  produced  shipboard  navigation  equipment  desig¬ 
nated  RadioNavigation  Sets  AN/SRN-9  and  AN/SRN-9A  to 
the  specifications  SHIPS-R-5111  (Ref.  3),  SHIPS-R-5111A 
(Ref.  4),  and  SHIPS-R-5111B  (Ref.  5).  These  specifica¬ 
tions  embody  APL  experience  with  the  developmental  AN/ 
SRN-9  equipment.  Radio  Navigation  Set  AN/SRN-9  is  shown 
in  Fig.  11  and  described  in  Ref.  6.  Radio  Navigation  Set 
AN/SRN-9A  is  shown  in  Fig.  12  and  described  in  Ref.  7. 
Reference  8  describes  operational  procedures  for  both  sets 
when  used  with  the  CP-967/UYK  computer. 

The  two  sets  differ  in  that  the  AN/SRN-9A  has  auto¬ 
matic  signal  acquisition  and  coast  mode  features  (explained 
below);  in  addition,  doppler  data  may  be  obtained  over 
either  2-minute  intervals  or  approximately  4.  6-second  in¬ 
tervals  at  operator  option.  The  following  sections  will 
apply  only  to  2 -minute  interval  data  inasmuch  as  program¬ 
ming  procedures  for  4.  6-s  interval  (or  short  count)  data 
are  beyond  the  scope  of  this  report. 
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In  the  AN/SRN-9  set,  loss  of  lock  during  a  2-minute 
interval  results  in  loss  of  all  data  for  that  interval.  If  the 
AN/SRN-9A  set  loses  lock  during  a  2-minute  interval,  how¬ 
ever,  the  coast  mode  feature  allows  satellite  message  data 
to  be  obtained  upon  signal  reacquisition,  provided  the  time 
between  loss  of  lock  and  reacquisition  does  not  exceed  60 
seconds.  In  addition  varying  combinations  of  doppler,  re¬ 
fraction,  and  satellite  message  data  are  obtainable  in  a  loss 
of  lock  situation,  depending  upon  whether  it  is  the  150  MHz, 
400  MHz,  or  both  signals  that  are  lost.  The  following  tabu¬ 
lation  shows  all  the  consequences  for  the  various  combina- 


tions: 

Condition 

Doppler  Data 

Refraction  Data 

Message  Data 

Unlocked 

- 

- 

- 

Both  channels 
locked  during 
first  transfers 
(initial  message 
sync. )  (1) 

BCDX3"0" 

BCDX3"0" 

BCDX3 

Both  channels 
locked 

BCDX3 

BCDX3 

BCDX3 

400  MHz  locked 

150  MHz  unlocked 

BCDX3 

BCDX3”0n 

BCDX3 

400  MHz  unlocked 
150  MHz  locked 

BCDX3"0" 

BCDX3"0" 

BCDX3 

Coast  Mode  (2) 

Binary  "0" 

Binary  "0" 

Binary  "0" 

Note  (1)  BCDX3  denotes  valid  data  format. 

(2)  During  coast  mode,  binary  "0"  will  be  outputted  to 

computer. 


From  the  standpoint  of  programming  a  computer  for 
use  with  data  obtained  with  either  the  AN/SRN-9  or  AN/ 
SRN-9A  Radio  Navigation  Set,  the  differences  between  these 
equipments  and  the  developmental  AN/SRN-9  equipment  de¬ 
scribed  in  the  previous  section  lie  in  the  treatment  of  the 
ionospheric  refraction  correction  and  in  the  formatting  of 
the  output  data.  Whereas  the  refraction  correction  circuitry 
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in  the  developmental  equipment  adds  or  deletes  cycles  from 
the  doppler  count  such  that  a  refraction  corrected  doppler 
count  is  obtained  for  use  in  navigation  computations,  the 
AN/SRN-9  and  AN/SRN-9A  equipment  is  designed  to  present 
the  refraction  information  separately  from  the  doppler 
count,  and  the  requisite  correction  must  be  done  during  sub¬ 
sequent  computations.  The  refraction  count  data  in  the  AN/ 
SRN-9  and  AN/3RN-9A  equipment  take  on  values  between 
1000  and  3000  and  are  scaled  such  that  a  count  of  2000  is  an 
indication  that  no  correction  is  required  or  (in  the  AN/SRN-9 
only)  that  the  refraction  count  is  invalid. 

The  refraction  correction  equation  to  be  implemented 

then  is 

Nk  ■  Nk400  -  ft (R k  -  2000>  (6> 

where 

N^  =  ionospheric  refraction  corrected  doppler 
count, 

=  400 -MHz  doppler  count  from  ITT  equip- 

400  ment,  and 

R^  =  refraction  count  from  ITT  equipment. 

The  ITT  equipment  may  be  configured  to  output  its 
data  into  a  readout  device,  such  as  a  printer  or  a  paper  tape 
punch,  for  later  off-line  calculation,  or  directly  into  a 
computer  for  real-time  navigation.  Figure  13  shows  a 
thermal  printer  readout  that  could  have  been  obtained  from 
either  an  AN/SRN-9  or  an  AN/SRN-9A,  for  comparison 
with  Fig.  10.  Specific  details  of  the  format  of  the  output 
data  from  the  ITT  equipment  are  described  in  the  Data  Types 
and  Formats  Section. 
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'  Fixad  Memory  Rtadout ' 


*  Fiud  Memory  Rtadout  - 


Fixtd  Memory  Rtadout 
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Fig.  13  AN/SRN-9  OR  AN/SRN-9A  TWO-MINUTE  DOPPLER,  REFRACTION,  AND  ORBITAL 
PARAMETER  PRINTOUT 
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Fig.  13  AN/SRN-9  OR  AN/SRN-9A  TWO*MINUTE  DOPPLER,  REFRACTION,  AND  ORBITAL 
PARAMETER  PRINTOUT  (cont'd) 
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NAVIGATION  SATELLITE  RECEIVER  SET  702CA 

Under  the  sponsorship  of  the  Office  of  Naval  Re¬ 
search,  the  Scripps  Institution  of  Oceanography  of  the 
University  of  California  has  contracted  with  the  Magnavox 
Company  for  the  Navigation  Satellite  Receiver  Set  702CA, 
produced  in  accordance  with  Scripps  Specification  0A0088 
(Ref.  9).  This  snecification  also  embodies  APL  experience 
with  developmental  integrated  doppler  navigation  equipment. 
Figure  14  shows  the  equipment;  Ref.  10  describes  its 
operation  and  maintenance. 

From  the  standpoint  of  programming  a  computer  for 
use  with  the  Navigation  Satellite  Receiver  Set  702CA,  the 
differences  between  this  equipment  and  the  developmental 
AN/SRN-9  equipment  described  previously  lie  in  the  treat¬ 
ment  of  the  ionospheric  refraction  correction  and  in  the 
formatting  of  the  output  data.  Like  the  ITT  AN/SRN-9 
equipment  the  702CA  equipment  also  provides  separate  out¬ 
puts  for  use  in  later  calculations  to  obtain  a  refraction  cor¬ 
rected  doppler  count.  The  702CA  outputs,  however,  are  a 
400 -MHz  doppler  count  and  a  150 -MHz  doppler  count  scaled 
by  the  receiver  to  400  MHz. 

The  refraction  correction  equation  for  Magnavox 
702CA  data  is  then 


Nk  '  Nk  +  55  <Nk 
K  k400  00  k400 


where 


ionospheric  refraction  corrected  doppler 
couni, 

400-MHz  doppler  count,  and 
150 -MHz  doppler  count. 


-  31  - 


TMC  toum  K  .'«]>» 

APPLIED  PMYfc’Cf  v  ABO=  \TORY 
liti«  im»i  %  *u*n,  *o 


(b)  RECEIVER 

Fig.  14  NAVIGATION  SATELLITE  SET  702  CA 
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Figure  15  shows  a  printout  obtained  from  the  702CA 
receiver  on  ;he  HP  2115A  computer  for  comparison  with 
Fig.  10  (AN/SRN-9  (XN-5)  printout)  and  Fig.  13  (ITT  AN/ 
SRN-9  or  AN/SRN-9  A  printout).  Note  that  the  coding  in 
the  form  of  single  and  double  signs  shown  in  Figs.  10  and 
13  is  expressed  in  Fig.  15  as  a  digital  coding.  Specific 
details  of  the  format  of  the  output  data  from  the  Magna  vox 
equipment  are  described  later  in  the  Data  Types  and  For¬ 
mats  Section. 
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000000900  003023322 

430732390  440812742  000872531  010912255 
020931942  030921605  040891252  050830915 
414088460  837170670  810687490  800197580 
800061330  807455250  815310080  900004850 
800125170  809053730  82023024  851300660 

809999220  800510000  000000000  000000000 
000000000  400  MHz  DOPPLER  _1SQ  MHz  DOPPLER 

r003263?72v003263945>  -» 

440812745  000872531  010912255  020931942  EPHEMERAL  MEMORY  READOUT 
030921605  040891252  050830915  060750602 
414088460  837170670  810687490  800197580 
800061330  807455250  815310080  900004850 

800125170  809053730  820230240  851800660  FIXED  MEMORY  READOUT 

809999220  800510000  000000000  00D?0000fi 

000000000 

003737842  003737907 

000872531  010912255  020931942  030921605 
040891252  050830915  060750602  070640345 
4 '4088460  837170670  810687490  800197580 
800061330  807455250  815310080  900004850 
800125170  809053730  820230240  851800660 
809999220  800510000  000000000  000000000 
000000000 

Fig.  15  702CA  DOPPLER,  REFRACTION,  AND  ORBITAL  PARAMETER  PRINT¬ 

OUT  AS  OBTAINED  ON  HP21 15A  COMPUTER 
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4.  GEOMETRICAL  BASfS  OF  NAVIGATION  EQUATIONS 


The  derivation  of  the  equations  used  in  the  naviga¬ 
tion  solution  as  presented  here  is  divided  into  two  parts. 
The  first  of  these  parts  will  show  the  method  of  coordinate 
system  transformation,  which  is  used  to  obtain  the  navi¬ 
gator  and  satellite  positions  in  a  common  coordinate  sys¬ 
tem,  The  second  part  will  show  the  derivation  of  satellite 
and  navigator  positions  from  basic  information  available 
to  the  navigator. 


COORDINATE  TRANSFORMATIONS 

To  show  the  derivation  of  the  coordinate  system 
transformations  used  in  the  navigation  solution,  first  de¬ 
fine  a  right -hind,  earth -centered,  inertial  cartesian  coor¬ 
dinate  system  XYZ  which  is  oriented  such  that  (1)  its  cen¬ 
ter  is  at  the  center  of  the  earth,  (2)  its  X-Y  plane  is  co¬ 
incident  wit*i  the  equatorial  plane  of  the  earth,  (3)  its  Z- 
axis  is  coincident  with  the  spin  axis  of  the  earth  (the  posi¬ 
tive  Z-axis  points  toward  the  north  pole),  and  (4)  its  X- 
axis  is  coincident  with  the  vernal  equinox  (First  Line  of 
Aries). 


In  a  similar  manner,  define  a  right-hand,  earth- 
centered  coordinate  system  which  is  fixed  with  respect  to 
the  rotating  earth.  This  system,  denoted  xyz,  is  oriented 
such  that  (1)  its  center  is  at  the  center  of  the  earth,  (2)  its 
x-y  plane  is  coincident  with  the  equatorial  plane  of  the 
earth,  (3)  its  z-axis  coincides  with  the  spin  axis  of  the 
earth,  and  (4)  its  x-axis  is  coincident  with  the  plane  of  the 
Greenwich  Meridian. 

It  can  be  easily  visualized  that,  since  the  xyz  coor¬ 
dinate  -ystem  rotates  with  the  earth,  any  fixed  point  on  the 
earth  will  remain  fixed  with  respect  to  the  xyz  system. 

This  coordinate  system  would  then  be  desirable  as  a  refer¬ 
ence  system  for  the  navigator,  since  his  position  at  any 
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time  may  be  represented  as  a  point  in  the  xyz  system  and, 
if  he  is  not  moving,  his  position  within  the  coordinate  sys¬ 
tem  will  not  change  with  time. 

Now  refine  the  angle  between  a  line  through  the 
Greenwich  Meridian  on  the  x-y  plane  and  the  vernal  equinox 
(First  Line  of  Aries)  as  Aq.  This  angle  is  called  the  hour 
angle  or  Right  Ascension  of  Greenwich.  Pictorially,  the 
XYZ  and  xyz  coordinate  systems  appear  as  in  Fig.  16.  The 
transformation  from  XYZ  to  xyz  coordinates  is  given  by 


x  =  X  cos  A  +  Y  sin  A 

Cjt  VjT 

y  =  -X  sin  A,,  +  Y  cos  A_ 

\jr  Li 


z  =  Z  . 


(8) 


Now  define  a  three-dimensional  coordinate  system 
x'y'z’  whose  center  is  at  the  center  of  the  earth  and  whose 
x’-axis  lies  in  the  equatorial  plane  of  the  XYZ  coordinate 
system.  The  x'  and  y'  directions  in  this  coordinate  sys¬ 
tem  define  a  plane  which  is  the  orbital  plane  of  the  satel¬ 
lite.  Further,  define  the  inclination  angle,  i,  of  the  satel¬ 
lite  plane  as  the  angle  between  the  y’  -axis  and  the  equa¬ 
torial  plane,  XY,  and  the  angle  ftQ,  the  right  ascension  of 
the  ascending  node,  as  the  angle  between  the  x’-axis  of  the 
orbital  plane  and  the  X-axis  of  the  XYZ  coordinate  system. 
The  orientation  of  the  orbital  plane  is  shown  in  Fig.  17. 

From  examination  of  the  geometry  of  the  XYZ 
coordinate  system  and  the  x’y'  plane,  the  transformation 
from  the  x'y'  plane  to  the  XYZ  coordinate  system  is  given 
by 


X  =  x'  cos  ft  -  y'  cos  i  sin  ft 
o  J  o 

Y  =  x'  sin  ft  +  y  cos  i  cos  ft 
o  J  o 

Z  =  y’  sin  i  . 


(9a) 


-  36  - 


THE  JOHN*  HOPKINS  UNIVERSITY 

applied  physics  laboratory 

*hv««  UUIfutiw 


Although  the  primary  motion  of  the  satellite  will 
be  in  the  x'y'  plane,  allowance  will  be  made  at  this  point 
for  motion  that  is  perpendicular  to  the  plane  of  the  satel¬ 
lite  orbit.  This  direction  will  be  defined  as  the  z'  direc¬ 
tion  and  will  be  pointed  such  that  the  positive  z'-axis  forms 
a  right-hand  coordinate  system  with  the  x'y'  plane.  Fig¬ 
ure  18  shows  this  x'y'z'  coordinate  system.  The  trans¬ 
formation  to  XYZ  coordinates  is  given  by 

X  =  x'  cos  ft  -  y'  cos  i  sin  ft  +  z*  sin  i  sin  ft 
o' 7  o  o 

Y  =  x1  sin  ft  +  y*  cos  i  cos  ft  -  z’  sin  i  cos  ft  (9b) 
o'7  o  o 

Z  =  y'  sin  i  +  z’  cos  i  . 

Now  define  the  angle  8  to  be  the  angle  between  the 
plane  of  the  satellite  orbit  and  the  plane  of  the  Greenwich 
Meridian.  This  difference  is  given  by 

0  =  a  -Ar  .  (10) 

o  G 

By  using  the  angle  0  it  is  now  possible  to  transform 
the  satellite  orbital  x’y’z’  coordinate  system  directly  into 
the  navigator's  xyz  coordinate  system  without  performing 
the  initial  transformation  to  XYZ  coordinates.  This  trans¬ 
formation  is  of  prime  importance  since  it  is  the  navigator's 
xyz  coordinate  system  that  will  be  used  as  the  common 
coordinate  system  for  the  navigation  solution  computations. 
The  transformation  is  given  as  follows: 

x  =  x'  cos  ft  -  y’  cos  i  sin  &  +  z'  sin  i  sin  ft 
y  =  x'  sin  £  +  y'  cos  i  cos  #  z'  sin  i  cos  &  (11) 

z  =  y'  sin  i  +  z’  cos  i  . 

Since  satellite  orbital  data  as  transmitted  are  not 
directly  positions  in  the  x'y'z'  coordinate  system,  but  as 
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In  Eq.  (14),  the  mean  anomaly  is  the  same  as  in  Eq. 
(13).  The  eccentric  anomaly  is  given  explicitly  in  Eq.  (14). 

Also  in  Eq.  (14),  the  factor  ^1  -  is  implicit  in  the  ex¬ 
pression  for  v^. 

In  the  simple  classical  theory,  the  angles  r*Q  and  to' 
are  invariant  in  ime.  In  the  integrated  dopple^  navigati^ 
computation,  however,  they  do  vary  with  time  but  are  as¬ 
sumed  to  have  constant  time  derivatives,  Ct  and  oc,  respec¬ 
tively. 

To  summarize,  in  the  integrated  doppler  navigation 
computation  the  satellite  orbit  is  treated  as  a  corrected 
(AE(tj.),  AA(tk),  rj(tk)),  precessing  (ic  ,  fi  )  Keplerian 
ellipse. 

The  equations  for  computing  satellite  coordinates 
given  in  Step  F  of  Section  7  follow  those  given  here. 

The  term  reference  ellipsoid  is  applied  here  to  the 
surface  used  to  approximate  the  figure  of  the  earth  in  the 
navigation  computation.  The  reference  ellipsoid  is  taken 
to  be  an  ellipsoid  of  revolution.  The  axis  of  revolution  is 
the  z-axis  or  the  spin  axis  of  the  earth.  The  center  of  the 
ellipsoid  is  the  center  of  the  earth. 

The  intersection  of  any  plane  containing  the  z-axis, 
i.  e. ,  a  meridian  plane,  and  the  ellipsoid  is  an  ellipse. 

The  intersection  of  a  plane  narallel  to  the  equatorial  xy 
plane  and  the  ellipsoid  is  a  circle. 

The  rectangular  coordinates  (x,  y,  z)  of  any  point 
on  the  surface  of  the  ellipsoid  satisfy  the  function  F 
(x,  y,  z)  =  0  in 

2  2  2 

F(x,  y,  z)  =  - — +  - - -  -1  =  0.  (15) 

[R0  (1  -  f>]2 


-  45  - 


THt  JOHNS  HOKIW  UNIVCRflTV 

APPLiED  PriYSiCS  LABORATORY 

StcviM  Maitland 


In  Eq.  (15),  R0  is  the  (major)  equatorial  semiaxis  of  the 
ellipsoid,  and  Rc  (1  -  f)  is  the  (minor)  polar  semiaxis. 


The  partial  derivatives  of  F(x,  y,  z)  with  respect  to 
x,  y,  and  z  are  denoted  by  Fx,  Fy,  and  Fz,  respectively, 
and  by  Eq.  (15),  are 


F  = 
x 


F  = 

y 


F 

z 


2z _ 

[Rq(1  -  f)]2 


(16) 


Any  (outward  directed)  normal  to  the  ellipsoid  is 
inclined  at  an  angle  to  the  equatorial  xy  plane,  which  is 
denoted  by  <P  .  The  angle  between  the  x-axis  and  the  pro¬ 
jection  of  the  normal  on  the  xy  plane  is  denoted  by  A. . 
Therefore,  the  direction  cosines  of  the  normal  with  respect 
to  x-,  y-,  and  z- axes  are,  respectively,  (cos<p,  cos  A  ), 
(cos  <P,  sin  A),  and  sin  <p.  These  direction  cosines  are  given 

by 

2  2  2  ^2 

cos  <P  cos  A  =  F  /( F  +  F  +  F  ) 

xx  y  z 

2  2  2  1/2 

cos  <p  sin  A  =  F/(F  +F  +F)  (17) 

y  x  y  z 

sin<P  =  F  /(F  2  +  F  2  +  F  2)1/2  . 

z  x  y  z 

From  Eqs.  (16)  and  (17),  we  find 
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parameters  defining  its  elliptical  orbit,  it  is  necessary  to 
define  an  additional  coordinate  system,  uvw,  in  which  the 
w  and  z'  axes  are  coincident  and  in  which  the  angle  w  ,  be¬ 
tween  the  x1  and  u  axes  is  called  the  argument  of  perigee. 
Figure  19  shows  the  relation  between  the  x'y'  and  uv  planes. 
The  transformation  from  uvw  to  x'y'z*  coordinates  is  given 
by 


x*  •  u  cos  oj  -  v  sin  a) 
o  o 

y*  =  u  sin  to  +  v  cos  to  (12) 

J  o  o 

z'  =  w  . 


Now  consider  the  pictorial  representation  of  the 
satellite  orbit  as  shown  in  Fig.  20.  The  point  O'  is  the  cen¬ 
ter  of  the  ellipse  PSA  and  of  the  circumscribed  circle  PCA . 
The  origin  of  the  uvw  coordinate  system  is  taken  as  0.  The 
uv  coordinates  are  shown.  The  w  coordinate  is  the  axis 
pointing  off  the  page  on  Fig.  20. 

Now  define  the  time  at  which  the  satellite  is  at  its 
perigee  P  as  tp  and  call  it  time  of  perigee.  The  position 
of  the  satellite  at  an  arbitrary  time  t  after  tp  is  repre¬ 
sented  by  the  point  S  on  the  ellipse  PSA.  The  orbital 
ellipse  has  a  semimajor  axis  denoted  by  AQ  and  an  eccen¬ 
tricity  denoted  by  €  .  The  angle  E  is  called  the  eccen¬ 
tric  anomaly  and  is  the  angle  through  which  the  s  tellite 
has  moved  on  the  ellipse  since  tp.  Further  let  1  denote 
the  orbital  period  of  the  satellite;  then  n,  the  mean  motion, 
is  given  by  2^/T. 


SATELLITE  AND  NAVIGATOR  POSITIONS 

A  problem  in  classical  orbits  is  this:  given  AQ,  t , 
and  t,  find  u(t),  v(t),  and  w(t),  the  coordinates  of  S  at 
time  t.  The  computation  that  provides  th  *  solution  of  this 
problem  is  defined  by  Eq.  (13): 
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M(t)  =  n(t-t  ) 

P 

E(t)  =  M(t)  +  c  sin  E(t) 


A  =  A 


u(t)  =  A(cos  E(t)  -  e 


v(t)  =  A 


f7? 


sin  E{t) 


w(t)  is  undefined. 

The  quantities  M(t)  and  E(t)  in  Eq.  (13)  are  called 
the  mean  and  eccentric  anomalies,  respectively.  The 
equation  defining  E(t)  (Kepler's  Equation)  is  transcendental, 
and  its  solution  can  be  obtained  by  various  means. 

For  the  integrated  doppler  navigation  computation, 
this  part  of  the  computation  of  the  satellite  coordinates  is 
carried  out  in  a  different  manner. 


The  integrated  doppler  navigation  problem  can  be 
stated  as  follows:  given  A  ,  C,  n,  tp,  AE(tk),  AA(t^),  and 
V(t k),  find  u(y,  v(tk),  ancPw(tk).  The  equations  which 
define  the  computation  are  given  by 

Mk =  n  <»k  -  V 

+  €  sin  Mk  +  AE(tk) 

A  =  A  +AA(tk) 

R  °  K  (14) 

uk  =  Ak  (cos  (Ek)  -  <) 

Tk  =  Ak sln  'V 

wk  =  n(tk). 
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s 


2  2  2  1/2 

x/R  3  F  R/2=(R/2)(F  +F  +F  )  cos  <P  cos  X 
oxo  o  x  y  z 

2  2  2  1/2 

y/R  =  F  R  12  •  (R  1 2)  (F  +  F  +  F  )  cos  <P  sin  X  (13) 
O  y  o  o  xy  z 

1  /  2 

z/R  (1-f)  -  F  R  ( 1  -f)/2  =  [r  (l-f)/2|[r  2+F2  +  F2]  sin  <P  . 
o  zo  *-o  -»L  x  y  zj 

Now,  by  Eq.  {15) 


(x/R)2  +(y/R)2+  [z/R  (1-f)]2  =  1. 
o  o  o 


(19) 


I 

Jb 


1 

I 


I 

I 

I 

I 


Expanding  Eq.  (19)  in  terms  of  the  right-hand  side 
of  Eq.  (18),  we  determine 


(F  2  +  F  2  +  F  2)  =  — - - ^ 

x  y  z  ^2  _ 2 


R ^  cos“  <p  +  [Rq  (1-f)]2  sin2  <p 


(20) 


Substituting  from  Eq.  (20)  for  (F  2  +  F  2  +  F  2) 

x  y  z 

in  Eq.  (18),  we  obtain  for  the  rectangular  coordinates  of 
any  point  on  the  surface  of  the  ellipsoid: 


1/2 


R  cos  tp  cos  X 


x(«P,  X)  = 


(cos2<p+  (I-f)2  sin2  <P)1/2 


y(<P,  X)  = 


z(<p) 


R  cos  <p  sin  X 
o 


,  2  ,  »2  2  .1/2 
(cos  P+(l-f)  sin  <p) 

R  (1-f)2  sin  <P 
_ o _ 

o  2  91/2 

(cos ** (P  +  (1-f)  Sill  V)  7 


(21) 


The  angular  coordinates  V  and  X  are  called 
the  geodetic  latitude  and  longitude,  respectively,  of  a  point 
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on  the  geodetic  surface.  Points  not  on  the  geodetic  surface 
can  be  given  a  geodetic  representation  by  means  of  a  third 
coordinate,  the  geodetic  altitude,  which  is  denoted  by  h. 

The  geoidal  height  above  the  reference  ellipsoid  is  denoted 
by  H,  and  h'  =  (h  +  II). 

A  value  for  H  in  meters  may  be  determined  through 
use  of  Fig.  21,  a  geoidal  height  contour  map.  To  use  this 
map  the  navigator  locates  ’•  e  approximate  position  on  it  and 
interpolates  between  con.  ir  lines  to  obtain  the  value  for 
geoidal  height  in  meters. 

Let  (x,  y,  z)  represent  the  coordinates  of  any  point 
in  space.  The  h'  is  defined  to  be  the  distance  from  the 
point  to  the  geodetic  surface.  The  coordinate  h  is  positive 
if  the  point  (x,  y,  z)  is  above  the  surface.  To  be  specific, 

h'  .1  C  according  to 
< 


R  2  (1-f)2 
o 


Now  let 

9  9  9  2  1/2 

D(<p)  =(R  cos  <p+  [R  <l-f)f  sin  <P)  .  (22) 

o  o 
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In  the  integrated  doppler  navigation  computation,  use 
is  made  of  the  partial  derivative  of  x,  y,  and  z  with  respect 
to  <p  and  A .  A  partial  derivative  with  respect  to  <p  is  de¬ 
noted  by  superscript  (^)  and  with  respect  to  A  by  super¬ 
script  (^).  From  Eqs.  (22)  and  (23),  it  is  seen  that 


x(2)  (<P,  A,  h')  =  -  (  (R  2  [R  (l-f)]2/D3  (cp))  +  h')  sin  p  cos  A 

o  o 

y(2)  (<p.  A,  h')  =  -  ((R  2[R  (1-f)]2  /D3  (<P))  +  h')  sin  <P  sin  A 

o  o 

(24) 

z(2)  (<p,  h')  =  (Rq2  [Rq  (l-f<l2/D3  (<p))  +  h')  cos<P 
x(3)  (<P,  A,  h')  =  -y  (<P,  A,  h') 
y(3)  (<P,  A,  h')  =  x(<P,  A,  h')  . 
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5.  DATA  TYPES  AND  FORMATS 


TYPES  OF  DATA 

Four  types  of  data  are  processed  for  entry  into  the 
navigation  solution  equations.  These  data  types  are 

1.  Doppler  and  refraction  data, 

2.  Satellite  orbital  data, 

3.  Navigator's  estimates  of  time  (GMT)  of  first 

Iducial  mark,  position,  antenna  height,  head¬ 
ing,  ship's  velocity,  day  number  of  pass,  and 
alert  instructions,  and 

4.  Program  constants. 

Doppler  and  Refraction  Data 

Section  3  describes  the  doppler  and  refraction  data 
obtained  from  the  ITT  and  Magnavox  equipment,  respec¬ 
tively. 

Satellite  Orbital  Data 

During  every  2  minutes  of  a  satellite  pass,  data 
describing  the  orbit  are  transmitted  from  the  satellite  in 
156  BCDX3  words  of  39  bits  each  plus  an  additional  19  bits. 
The  data  are  in  two  groups:  fixed  parameters,  describing 
a  precessing  Kepler  ellipse  that  approximates  the  satellite 
orbit;  and  variable  parameters,  describing  the  deviations 
of  the  orbit  from  the  precessing  ellipse  for  each  2 -minute 
interval.  Tables  1  and  2  describe  the  variable  and  fixed 
parameters,  respectively. 

Each  of  the  eight  variable  data  words  consists  of 
the  parameters  tfc,  AE^,  AA^,  and  7]y  combined  in  a  single 
word.  Of  the  eight  variable  words  the  fourth  word  (satel¬ 
lite  word  No.  26)  describes  the  orbit  deviations  from  the 
precessing  ellipse  for  the  present  2 -minute  interval.  The 
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Table  1 


Variable  Orhit  Parameters  iri  Navigation  Message 


Satellite 
Word  No 

Parameter 

Symbol 

Units 

No  of 
Digits 

Sign 

Magnitude 

Definition  of  Parameter 

*k 

Minutes 
modulo  15 

2 

2 

XX.  0 

Time  in  integer  even  UT  minutes 
following  an  integer  one-half  hour 
of  kth  transmission 

8,  14,  20,  26, 
32.  38.  44, 
and  50 

AEk 

Degrees 

3 

2 

0  OXXX 

Correction  to  eccentric  anomaly 
for  kth  time  point 

AAk 

Meters 

3 

2 

XXXO.O 

Correction  to  mean  semtmajor  axis 
for  kth  time  point 

\ 

Meters 

2 

3 

XXO.O 

Out  of  plane  orbit  component 

'Each  word  of  variable  orbit  data  is  a  9-digit  combination  of  the  parameters  t  ,  AE. ,  AAk,  and  >7^. 
The  method  of  combination  is  as  follows,  where  each  of  the  9  digits  is  represented^y  the  letter  X: 


x  X  XXX  XXX  X 

Code  value  for  signs  of  AE.  and  Second  digit  Vaiue  of  Value  of  One  digit 

AAk  and  first  digit  of  tR  of  tfc  AEk  AAfc  of  Hk 


2 

The  decimal  code  value  for  the  signs  of  AAk  and  AEk  and  for  the  first  digit  of  tk  is  as  follows- 

Sign  of  AAk  Sign  of  AEk  First  Digit  of  ^  Decimal  Code  Value 

+  +  0  0 

+  0  1 

+  -  0  2 

0  3 

+  +  1  4 

+  1  5 

*-  -  1  6 

1  7 

3  ( m )  (  j  \ 

'  Quantity  tj  consists  of  two  digits  I) '  ’  and  Vr  ,  the  digits  being  transmitted  in  successive  2  -minute 

messages.  In  reconstructed  form,  T)  =  ±0.l/  and  is  partitioned  as  follows;  is  trans¬ 

mitted  in  each  variable  parameter  word  whose  fiducial  tlm»-  (UT)  in  minutes  is  divisible  by  4  (zero 

included):  is  transmitted  in  the  next  2-mlnute  message.  In  addition,  is  transmitted  in  a  code 

that  indicates  both  value  and  sign.  The  coda  is: 


Decimal  Equivalent  of  .  . 

Transmitted  BCDX3  Digit  (D  )  rfm> 

Decimal  Equivalent  of 
Transmitted  BCDX3  Digit  (D2> 

(m) 

f| 

0  -0 

5 

+0 

1  -4 

6 

+1 

2  -3 

7 

+2 

3  -2 

8 

+3 

4  -t 

9 

+4 

The  decoding  for  ij<m)  is  as  follows:  J|<m)  *  <D2  -  5)  when  1  *  D2  *  9  When  D2  =  0.  J|(m>  «■  -0. 

When  D,  =>  S,  =  +0.  The  quantity  is  not  coded.  It  should  be  noted  that  t.  is  modulo  15 
(i.  e. .  minutes)  whereas  the  time  associated  with  fjg  is  modulo  60  minutes.  Values  of  0y  for 
fiducial  times  not  divisible  by  4  are  obtained  by  Interpolation. 
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Table  2 

Fixed  Orbit  Parameters  in  Navigation  Message 


Satellite 
Word  No. 

Parameter 

Symbol 

Units 

No.  of 
Digits 

Sign  and 
Magnitude* 

Definition  of  Parameter 

56 

t 

P 

Minutes  UT 
modulo  1440 

9 

TXXX.  XXXXX 

Time  of  first  perigee  in  the 
time  span  of  ephemeral 
memory  on  the  day  when  that 
perigee  occurs 

62 

n 

Degrees/ 
minute  minus 
three  * 

9 

S.  XXXXXXXX 

Mean  motion  of  satellite 

68 

« 

o 

Degrees 

9 

SXXX.  XXXXX-’ 

Argument  of  perigee  at  t 

74 

• 

Ui 

Degrees/ 

minute 

9 

S.  XXXXXXXX 

Precession  rate  of  perigee 

80 

€ 

Dimension¬ 

less 

9 

SX.  xxxxxxx 

Eccentricity 

86 

A 

o 

Meters 

9 

sxxxxxxxx.  <? 

Mean  semimajor  axis 

92 

a 

o 

Degrees 

9 

SXXX.  XXXXX1 2 3 4 

Right  ascension  of  ascend¬ 
ing  node  at  t 

P 

98 

• 

a 

Degrees/ 

minute 

9 

S.  XXXXXXXX 

Precession  rate  of  node 

104 

Ci 

Dimension¬ 

less 

9 

SX.  XXXXXXX 

Cosine  of  inclination 

110 

ag 

Degrees 
modulo  3(lu 

9 

SXXX.  XXXXX3 

Inertial  longitude  of  Green¬ 
wich  relative  to  Aries  at  t 

P 

116 

AM 

— 

9 

— 

Change  in  mean  anomaly 
•nr  1-hour  time  interval 
vtused). 

122 

6M 

Minutes  UT 

9 

.tange  in  mean  anomaly 
for  2-mlnute  time  Interval 
(unused). 

128 

Si 

Dimension¬ 

less 

9 

SX.  xxxxxxx 

Sine  of  inclination 

134 

Ay« 

— 

9 

— 

Satellite  frequency  offset 
(unused) 

140, 146 
and  152 

— 

— 

9 

— 

Zeros  at  time  of  '‘iection^ 

1The  first  digit  of  each  word  is  coded  as  follows: 

T  is  transmitted  as  either  0  or  4;  0  is  interpreted  as  0,  4  is  interpreted  as  1. 
S  is  transmitted  as  either  8  or  9;  8  is  interpreted  as  +,  9  is  interpreted  as 

2 

The  value  of  n  as  received  reflects  only  the  fractional  portion  of  n.  The  value 
should  be  3.XXXXXXXX  and  can  be  obtained  by  adding  3  to  the  received  value. 

3 

Always  a  positive  value. 

4 

Words  122,  140,  146,  and  152  are  not  necessary  to  the  fix  computations  but  may 
prove  helpful  in  the  detection  of  satellite  memory  injections. 
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third  word  (satellite  word  No.  20)  is  for  the  previous  2- 
minute  interval.  The  fifth  word  (satellite  word  No.  32)  is 
for  the  following  2 -minute  interval.  The  variable  words 
are  updated  every  2  minutes  such  that  variable  word  2  be¬ 
comes  variable  word  1,  3  becomes  2,  4  becomes  3,  etc. , 
and  a  new  variable  word  is  introduced  from  satellite  mem¬ 
ory  to  replace  variable  word  8.  Variable  word  1  is  lost. 

In  this  waj1,  the  observer  receives  not  only  the  variable  words 
for  the  present  2 -minute  interval,  but  also  data  for  the 
past  three  2 -minute  intervals  and  the  four  future  2 -minute 
intervals. 

During  data  processing  (described  in  Section  6)  the 
satellite  orbital  data  are  validated  by  a  majority  vote  pro¬ 
cedure  that  accepts  data  as  error-free  when  agreement  is 
found  in  two  out  of  three  instances.  The  data  are  also  pro¬ 
cessed  into  tables  for  convenient  use  in  the  navigation  so¬ 
lution. 

Navigator's  Estimates 

Table  3  lists  the  data  that  the  navigator  io  required 
to  enter  into  the  computer  for  the  navigation  solution. 

Program  Constants 

The  values  of  the  program  constants  used  jti  the 
navigation  solution  computation  are  listed  in  Table  4. 


DATA  FORMATS 

All  the  satellite  data  are  in  the  form  of  BCDX3  bi¬ 
nary  bits  which  can  be  converted  to  decimal  characters. 
Doppler  data  require  seven  characters,  or  28  bits.  ITT 
refraction  data  require  four  characters;  Magnavox  refrac¬ 
tion  data  require  seven  characters.  From  Tables  1  and  2 
it  is  seen  that  an  orbital  data  word  requires  nine  charac¬ 
ters. 

The  satellite  transmits  orbital  data  in  39-bit  words. 
Bits  37-39  of  each  word,  however,  are  reserved  for  parity, 
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Table  3 

Navigator's  Estimates 


Parameter 

Symbol 

Units 

Magnitude 

Time  of  first 

T 

Hours  and  minutes 

XX  h.  XX  min 

fiducial  mark 

c 

C1MT 

Position: 

Latitude 

e 

Degrees  and  minutes 

^XX”.  XX.  XXX' 

+  =  north 
-  =  south 

Longitude 

A 

e 

Degrees  and  minutes 

ScXX0,  XX.  XXX 

+  =  east 
-  =  west 

Antenna  height 

h 

Meters 

*XX.  X1 

Heading  (course)2 

d 

Degrees  clockwise 
from  true  north 

XXX.  X° 

2 

Rate  (speed) 

V 

knots 

XX.  X 

Day  number  of  pass 

IDAY 

Days 

XXX. 

Alerts: 

Day  number  of  last 

MDAY3 

Days 

XXX. 

Day  for  which  alerts 
are  to  be  calculated 

^Dependent  upon  installation;  see  Fig.  21. 

2 

.If  equipment  such  as  SINS  is  available,  the  navigator  may  use  latuude  and 
longitude  data  a*  each  fiducial  mark  instead  of  heading  and  rate. 

3If  MDAY  =  IDAY,  no  alerts  will  be  calculated. 
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Table  4 

Program  Constants 


Parameter 

Symbol 

Units 

Magnitude 

System  Constants 

Initial  value  of 

f 

cycles /second 

32,000 

offset  frequency 

o 

Vacuum  wavelength  at 

L 

m/  cycle 

7.  4948125  x  10 

reference  frequency 

o 

Earth  Constants 

Rotation  rate  of  earth 

CO 

rad /min 

4.  3752695  x 10 

with  respect  to  x,  y. 

e 

z  coordinate  system 

Equatorial  radius  of 

R 

m 

6  378  144 

reference  ellipsoid 

o 

Flattening  of  reference 

f 

dimensionless 

1 

ellipsoid 

298.  23 
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telemetry,  and  clock  data  of  concern  in  system  manage¬ 
ment.  These  three  bits  are  discarded  by  the  ITT  and 
Magnavox  equipment.  For  simplicity,  therefore,  a  satel¬ 
lite  orbital  data  word  is  defined  here  to  have  a  36 -bit 
length,  and  for  convenience  in  computer  processing  every 
36 -bit  satellite  orbital  data  word  is  divided  in  the  ITT  and 
Magnavox  equipment  into  three  15 -bit  computer  words. 
Similarly,  doppler  and  refraction  data  are  formatted  in  the 
equipment  into  three  15 -bit  computer  words,  with  binary 
zeros  being  used  to  fill  in  blanks,  as  will  be  shown  below. 

Each  15 -bit  computer  word  consists  of  12  data  bits 
plus  a  3-bit  identification  (ID)  code  generated  in  the  re¬ 
ceiver.  The  ID  code  serves  both  to  identify  whtti  che 
computer  word  represents  doppler,  refraction,  or  orbital 
data  and  also  whether  the  computer  word  contains  the  first 
12 -bit  segment  or  a  later  12 -bit  segment  of  data. 

ITT  Interface 


Figure  22  shows  examples  of  the  15 -bit  computer 
words  for  orbital  data,  doppler  data,  and  refraction  data 
provided  by  the  ITT  equipment.  The  15 -bit  computer  word 
is  transferred  from  the  receiver  on  15  data  lines  denoted 
2®  through  21^.  Data  lines  2°  through  22  are  the  ID  codes, 
and  lines  22  through  2*^  are  the  actual  data  bits.  The  most 
significant  ID  bit  is  22 .  The  most  significant  data  bits  are 
2l4t  21®,  and  2®.  Note  that  the  zeros  in  front  of  the  dopp¬ 
ler  and  refraction  data  are  binary  zeros.  The  voltage 
levels  of  the  signals  are  such  that 

logic  1  =  0  ±1 .  5  volts, 
logic  0  =  -14  ±3.  5  volts. 

Magnavox  Interface 


Figure  23  shows  examples  of  the  15 -bit  computer 
words  provided  by  the  Magnavox  702  equipment.  The  15- 
bit  computer  word  is  transferred  from  the  receiver  on  15 
data  lines  designated  bits  1  through  15.  Bits  13  through 
15  are  the  ID  codes.  Bits  1  through  12  are  the  actual  data 
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bits.  Tne  most  significant  ID  bit  is  bit  15.  The  most 
significant  data  bits  are  bits  12,  8,  and  4.  Note  th?.f  the 
zeros  in  front  of  the  doppler  and  refraction  data  are  bi¬ 
nary  zeros.  The  voltage  levels  of  the  signals  are  such 
that 

logic  1  =  0  ±0.25  volt, 

logic  0  =  +6  volts  (open  circuit). 


Sign 


A  16 -bit,  binary  word,  general  purpose  computer 
with  input /output  devices  operating  under  programmed 
interrupt  control  may  be  used  for  data  processing  and  for 
executing  the  navigation  calculations.  A  computer  of  this 
word  size  accommodates  the  15-bit  computer  word  and 
allows  the  16th  bit  to  be  used  as  a  sign  bit.  All  the  satel¬ 
lite  data  are  transmitted  as  positive  numbers;  note  from 
Table  2,  however,  that  positive  values  in  some  parame¬ 
ters  represent  coded  values  for  negative  numbers. 

Formatting  Satellite  Words  into  Computer  Words 

Figure  24  defines  ID  codes  and  shows  the  format  of 
36 -bit  words  as  output  from  the  ITT  and  Magnavox  equip¬ 
ment  in  three  computer  words  (each  word  consisting  of  15 
bits  plus  a  sign  bit).  BCDX3  characters  are  shown  as  X's. 
Zeros  fill  in  the  blank  spaces  to  make  up  the  required  36 
bits  per  satellite  word. 

Figure  25  is  a  timing  diagram  for  the  receiver/ 
computer  interface.  In  this  diagram  the  term  "word" 
means  the  36-bit  satellite  orbital  data  word.  The  figure 
shows  that  in  a  2 -minute  message  transmitted  from  the 
satellite  three  computer  words  of  doppler  data  are  trans¬ 
ferred  from  the  receiver  to  the  computer  during  the  oc¬ 
currence  of  satellite  word  3,  three  computer  words  of  re¬ 
fraction  data  are  transferred  during  satellite  word  5,  and 
75  computer  words  of  satellite  orbital  parameter  data  are 
transferred  during  satellite  words  8-152,  with  three  com¬ 
puter  words  being  transferred  during  each  sixth  satellite 
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TRANSFER 

NO.  SIGN  ID  SIGN  ID 


0 

0900 

0000 

X 

010 

DOPPLER 

0 

010 

0000 

oooo  :< 

0 

X 

X 

X 

Oil 

DATA 

0 

111 

X 

X  X 

0 

X 

X 

X 

Oil 

0 

111 

X 

X  X 

0 

0000 

100 

REF  RAC- 

0 

100 

0000 

0000 

X 

0 

0000 

0000 

X 

101 

TION 

0 

111 

X 

X 

X 

0 

X 

X 

X 

101 

DATA 

0 

111 

X 

X 

X 

1 

0 

X 

X 

X 

110 

ORBITAL 

PARAM- 

0 

110 

X 

X 

X 

2 

0 

X 

X 

X 

111 

ETER 

0 

111 

X 

X 

X 

3 

0 

X 

X 

X 

111 

DATA 

0 

111 

X 

X 

X 

ITT  OUTPUT  SATELLITE  MAGNAVOX  OUTPUT 

OATA 
TYPE 


X  -  BCDX3  CHARACTER 


Fig  24  FORMAT  OF  DOPPLER,  REFRACTION.  AND  ORBITAL  DATA  DIVIDED  INTO 
COMPUTER  WORDS  IN  THE  ITT  AND  MAGNAVOX  RECEIVERS 
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word.  From  Table  2  it  may  be  observed  that  the  data  in 
satellite  words  116,  122,  134,  140,  146,  and  152  are  not 
required  in  the  navigation  routine.  Satellite  words  122,  140, 
146,  and  152  contain  data  that  may  be  used  in  determining 
whether  the  satellite  message  was  updated  during  a  particu¬ 
lar  2 -minute  interval  by  the  ground  injection  station.  This 
feature  will  be  described  in  greater  detail  in  Section  6. 
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6.  DATA  PROCESSING 


The  objectives  of  the  real-time  processing  done  on 
the  satellite  2 -minute  messages  are  to  obtain  the  fixed 
orbital  parameters,  to  obtain  the  variable  orbital  parame¬ 
ters  and  the  doppler  and  refraction  data  and  arrange  them 
in  time  ordered  tables  with  due  regard  for  any  missing 
data,  and  to  check  the  validity  and  accuracy  of  the  data  in 
preparation  for  use  in  the  calculation  of  the  navigation  fix. 
During  this  process  a  check  is  also  made  to  determine  if  a 
new  message  has  been  injected  into  the  satellite  and  appro¬ 
priate  action  taken  if  it  has.  The  data  supplied  by  the  navi¬ 
gator  are  also  obtained.  The  processing  steps  to  accomp¬ 
lish  these  objectives  are  as  follows: 

< 

During  the  first  2 -minute  message  the  variable  and 
fixed  orbital  parameters  are  obtained. 

During  the  second  2 -minute  message  the  d  .  ’er 
data  for  the  first  2 -minute  interval  are  obtained  anu  vali¬ 
dated,  a  check  is  made  that  the  fixed  and  variable  data 
were  obtained  during  the  first  2 -minute  message,  the  re¬ 
fraction  correction  data  for  the  first  2 -minute  interval  are 
obtained,  and  the  variable  and  fixed  orbital  parameters  in 
the  second  2-minute  message  are  obtained. 

During  the  third  2 -minute  message  the  doppler  data 
for  the  second  2 -minute  interval  are  obtained  and  validated, 
a  check  is  made  that  a  new  message  has  not  been  injected 
into  the  satellite  memory,  the  differences  between  the 
orbital  parameters  obtained  in  the  first  and  second  2- 
minute  messages  are  calculated,  with  due  regard  for  the 
precession  of  the  variable  data,  the  refraction  correction 
data  for  the  second  2 -minute  interval  are  obtained  and 
validated,  and  the  variable  and  fixed  orbital  parameters 
in  the  third  2 -minute  message  are  obtained. 

PRErm  PAGE  BUR 
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During  the  fourth  2 -minute  message  the  doppler 
and  refraction  data  are  collected  and  validated,  the  new- 
message  check  is  done,  and  for  each  orbital  parameter  a 
determination  is  made  if  agreement  exists  in  two  of  the 
three  messages  by  a  majority  vote  process.  Finally,  for 
any  parameter  for  which  a  majority  vote  was  not  obtained, 
a  new  value  is  obtained  from  the  fourth  message. 

These  procedures  are  repeated  during  successive 
2 -minute  messages  untU  the  satellite  pass  is  over  or  un¬ 
til  doppler  and  refraction  data  have  been  obtained  for  nine 
2 -minute  intervals.  If  loss  of  lock  occurs  for  a  time  dur¬ 
ing  the  pass,  pointer  registers  keep  place  in  the  data  tables 
and  appropriate  missed  data  entries  are  made.  If  the  in¬ 
jection  check  finds  that  the  satellite  is  transmitting  a  new 
message  and  majority  voted  data  have  not  yet  been  ob¬ 
tained,  message  collection  begins  again. 

At  the  end  of  the  pass  the  data  are  formatted  from 
BCDX3  to  floating  point  and  the  navigator  enters  values 
for  his  estimates  of  sync  time,  position,  antenna  height, 
heading,  rate,  day  number  of  pass,  and  the  interval  for 
which  he  desires  alerts. 

The  following  sections  and  accompanying  flow  charts 
describe  the  detailed  procedures  that  occur  during  real¬ 
time  data  processing  of  each  2-minute  .-latellite  message. 
For  convenience  in  later  reference,  the  fiow  charts  tor 
both  the  data  processing  program  described  in  this  Sec¬ 
tion  and  the  FORTRAN  navigation  program  described  in 
Section  8  are  grouped  together  in  Appendix  A.  The  nomen¬ 
clature  used  in  the  flow  charts  is  also  used  in  this  descrip¬ 
tion  and  will  be  defined  at  its  first  mention.  The  final 
part  of  this  Section  describes  modifications  to  the  real¬ 
time  procedures  to  allow  their  use  in  postpass  navigation. 
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INITIALIZATION 


During  initialization  (Fig.  A-l)  the  program  con¬ 
stants  are  read  into  memory  storage;  tables  and  inter¬ 
rupt  interface  addresses  are  set  to  their  assigned  loca¬ 
tions;  and  the  flags,  counters,  and  pointers  used  for  place 
keeping  and  for  denoting  vhe  status  of  program  execution 
in  the  particular  computer  being  used  are  set  to  their  ini¬ 
tial  values  and  locations.  Figure  26  shows,  for  example, 
the  arrangement  and  initialized  values  in  eight  tables  that 
are  used  in  one  representative  computer  program  for 
storing  the  doppler,  refraction,  and  orbital  data.  This 
arrangement  requires  321  storage  locations  for  the  eight 
tables.  The  table  locations  (shown  in  octal  notation)  are 
specific  to  this  particular  computer  program  and  urf  in  — 
eluded  here  only  for  reference  in  discussir  «■  the  data  pro¬ 
cessing  procedures. 

The  data  stored  in  the  tables  are  as  follows;  Tah’e 
FPCR  is  used  to  store  the  fixed  parameters  in  each  2  - 
minute  satellite  message;  Table  FPVD  is  used  to  store 
the  fixed  parameters  that  either  will  be  subjected  to  the 
majority  vote  test  or  have  passed  this  test;  Table  FPER 
is  used  to  keep  track  of  those  parameters  that  have 
passed  the  majority  vote  test  and  also  the  errors  in  those 
parameters  which  have  not  passed  the  test.  Tables  VPCR, 
VFVD,  and  VPER  perform  these  same  functions  for  the 
variable  parameters.  Tables  DOPS  and  REFS  store  the 
doppler  and  refraction  data,  respectively. 


During  initialization.  Tables  FPCR,  FPVD,  VPCR, 
and  VFVD  are  set  to  values  of  BCD  zero.  Tables  FPER  and 
VPEiX  are  set  to  values  of  binary  -2,  and  Tables  DOPS  and 
REFS  are  set  to  values  of  BCDX3  zero.  The  -2  values  in 
error  tables  FPER  and  VPER  are  used  in  the  majority  vote 
process,  as  explained  in  later  sections.  The  BCDX3  zero 
values  in  the  doppler  and  refraction  tables  are  the  values 
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to  which  entries  in  these  tables  should  be  set  if  they  repre¬ 
sent  missing  entries.  The  other  tables  are  set  to  BCD 
zero  values  to  eliminate  the  possibility  of  data  accumulated 
during  previous  passes  from  entering  into  the  calculations 
for  the  present  pass. 

Figure  26  also  shows  the  beginning  locations  of  the 
eight  pointer  registers  used  to  keep  place  in  the  eight  data 
tables.  In  seven  of  the  tables  the  pointer  registers  are  set 
to  the  beginning  addresses  of  the  tables.  For  Table  REFS, 
however,  pointer  register  RE-1  is  set  to  a  location  three 
entries  before  the  beginning  of  Table  REFS.  This  arrange¬ 
ment  provides  for  updating  the  pointer  registers  after  re¬ 
ceipt  of  the  doppler  data,  as  will  be  described  in  a  later 
section. 


TEST  FOR  INTERRUPT 


The  computer  on  which  this  program  is  designed 
for  execution  is  one  that  operates  under  interrupt  control. 
An  interrupt  is  an  action  occurring  independently  of  the 
program  that  causes  a  change  in  the  sequence  of  program 
execution.  The  interrupts  accommodated  in  this  program 
are  the  transfers  of  data  from  the  receiver  or  the  input - 
output  device  (assumed  here  to  be  a  teletypewriter)  and 
the  transfer  of  data  from  the  computer  to  the  teletype. 

The  occurrence  of  an  interrupt  is  a  computer  hardware 
function  that  forces  a  transfer  to  a  dedicated  ioc  ^tion  in 
the  computer  memory.  In  the  particular  computer  for 
which  this  program  was  written  the  dedicated  location  is 
location  63.  The  interrupt  sequence  is  as  follows: 


*ME  JOHN*  HOPNf  UNtVTftSITY 

nn.  •  cm.  •«,  *  —  _  _ _ _ _  .  _ . . 
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After  initialization,  the  program  dwells  in  subrou¬ 
tine  INP3,  the  test  for  first  interrupt.  Subroutine  INP3 
(Fig.  A -1)  checks,  in  turn,  whether  data  have  been  trans¬ 
ferred  to  the  computer  from  the  receiver  or  whether  SW  2 
has  been  set,  indicating  that  the  renavigation  (ESM)  option 
is  to  be  executed.  This  latter  situation  will  be  covered  at 
the  end  of  the  real-time  procedures.  In  a  real-time  pass 
subroutine  INP3  will  be  interrupted  when  data  are  entered 
into  the  computer,  and  program  control  will  be  transferred 
through  dedicated  location  63  to  the  address  of  subroutine 
INTR,  the  interrupt  processor. 


INTERRUPT  PROCESSOR 

Subroutine  INTR  (Fig.  A-16)  checks,  in  turn, 
whether  the  interrupt  represents  the  receiver  or  the  tele¬ 
type.  In  a  real-time  pass  t’  e  first  interrupt  will  be  from 
the  receiver,  signaling  the  beginning  of  the  processing  of 
the  first  2 -minute  message.  Program  control  will  trans¬ 
fer  to  subroutine  RCVD,  the  receiver  interrupt. 


ID  CODE  SEQUENCE 

Before  describing  the  processing  of  the  first  re¬ 
ceiver  interrupt  it  should  be  noted  that  if  no  loss  of  lock 
occurs,  a  total  of  81  receiver  interrupts  in  the  format 
shown  in  Figs.  22  and  23  are  generated  during  each  2- 
minute  interval  of  a  satellite  pass.  It  is  convenient  to  con¬ 
sider  the  transfer  of  data  from  the  receiver  in  terms  of 
the  sequence  of  ID  codes  that  will  occur  during  a  2 -minute 
message.  Figure  27  shows  this  sequence  for  the  ITT  re¬ 
ceiver  data.  The  mnemonic  shown  under  each  ID  code  will 
be  used  in  the  following  description  of  the  processing  of 
the  real-time  receiver  data.  It  should  be  noted  in  Fig.  27 
that  the  first  and  second  occurrences  of  DP2,  RF2,  and 
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MG2  are  not  uniquely  coded,  thus  necessitating  the  use  of 
an  interrupt  count  switch  in  the  computing  program  to 
monitor  sequence.  In  addition  the  transition  from  the 
ephemeral  to  the  fixed  portion  of  the  orbital  parameters 
is  not  uniquely  coded  and  a  counter  is  needed  to  monitor 
this  transition. 


RECEIVER  INTERRUPT 

Returning  to  the  processing  of  the  first  receiver 
interrupt,  subroutine  RCVD  (Fig.  A -17)  accepts  the  15- 
bit  computer  word  being  transferred  from  the  receiver, 
storing  the  3 -bit  ID  code  and  the  12 -bits  of  satellite  data 
in  buffer  storage  registers  and  setting  receiver  flag  RCFG. 
Three  buffer  registers  are  used  for  storing  the  satellite 
data,  one  each  for  the  three  computer  word  transfers  that 
make  up  one  satellite  word.  Index  register  XREC  is  used 
to  distinguish  among  buffer  registers.  After  RCFG  is  set, 
return  is  made  through  subroutine  INTR  to  the  point  at 
which  subroutine  INP3  was  interrupted,  unless  a  teletype 
interrupt  has  occurred,  in  which  case  this  interrupt  will 
also  be  processed.  Subroutine  INP3  will  determine  that 
the  first  interrupt  has  occurred  (by  noting  that  receiver 
flag  RCFG  has  been  set),  and  will  transfer  complete  pro¬ 
gram  control  to  subroutine  IDLE. 


SUBROUTINE  IDLE 

Subroutine  IDLE  (Fig.  A-2)  is  the  subroutine  to 
which  the  program  returns  after  processing  each  of  the  81 
interrupts  during  every  2-minute  message.  The  subrou¬ 
tine  checks,  in  turn,  whether  a  receiver  interrupt  has  oc¬ 
curred,  whether  2  minutes  have  elapsed,  and  whether  16 
minutes  of  doppler  data  (eight  doppler  counts)  have  been 
collected.  It  also  controls  entry  to  subroutine  INCR  which 
increments  time  once  per  minute  by  updating  program 
clock  register  CLOC.  During  its  first  execution,  however, 
subroutine  IDLE  will  note  immediately  that  the  first  re¬ 
ceiver  interrupt  has  occurred  and  transfer  program  control 
to  subroutine  IDL2. 
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SUBROUTINE  IDL2 

Subroutine  IDL2  (Fig.  A -2)  resets  receiver  flag 
RCFG  in  preparation  for  receipt  of  the  next  receiver  inter¬ 
rupt  and  then  tests  the  ID  code  that  was  stored  in  the  buffer 
register  during  subroutine  RCVD.  Transfer  will  then  be 
made  to  subroutine  DPI,  DP2,  RF1,  RF2,  MG1,  or  MG2, 
depending  on  the  value  of  the  ID  code.  In  normal  real¬ 
time  data  processing  the  first  code  to  be  transferred  after 
sync  recognition  in  the  receiver  will  be  the  code  for  sub¬ 
routine  DPI.  Transfer  to  subroutine  DPI  therefore  marks 
the  beginning  of  the  processing  of  the  first  2 -minute 
message. 


FIRST  TWO-MINUTE  MESSAGE 
Doppler  and  Refraction  Count  Words 

Subroutine  DPI  (Fig.  A -3)  checks  whether  16  min¬ 
utes  of  doppler  data  have  been  obtained,  sets  the  teletype¬ 
writer  in  preparation  for  data  printout,  resets  internal 
program  clock  register  CL.OC  to  zero  to  mark  the  begin¬ 
ning  of  the  2 -minute  interval,  and  sets  sync  time  register 
SYNC  to  a  value  of  2  minutes  to  mark  the  expected  time  of 
the  next  2 -minute  interval.  Doppler  and  refraction  data 
are  the  first  receiver  outputs  in  a  2 -minute  message  and 
apply  to  the  preceding  2 -minute  interval.  Consequently, 
in  the  first  2-minute  interval  after  sync  recognition  these 
data  are  meaningless.  The  computer  program  takes  cogni¬ 
zance  of  this  fact  by  testing  message  sync  flag  FDOP. 

This  flag  will  not  be  set  until  first  execution  of  subroutine 
MG1.  Until  then  the  program  discards  the  doppler  and 
refraction  data,  returning  to  subroutine  IDLE  after  each 
check  for  message  sync  in  subroutines  DPI,  DP2,  RF1, 
and  RF2  (Figs.  A-3  and  A -4). 

Orbital  Parameter  Word  No.  1 

First  15 -Bit  Transfer.  The  check  on  the  ID  code 
in  subroutine  IDLE  of  the  first  15 -bit  transfer  for  orbital 
parameter  word  No.  1  directs  execution  of  subroutine  MG1 
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Subroutine  MG1  (Fig.  A -5)  begins  by  setting  message 
sync  flag  FDOP,  thus  allowing  data  storage  to  begin.  In¬ 
asmuch  as  in  a  2-minute  satellite  message  the  satellite 
orbital  parameter  data  are  transmitted  as  eight  variable 
parameters  followed  by  the  fixed  parameters,  the  data  re¬ 
ceived  during  orbital  parameter  word  No.  1  and  stored  in 
the  first  buffer  register  during  receiver  interrupt  routine 
RCVD  are  variable  data.  These  data  are  placed  in  Varia¬ 
ble  Parameter  Current  Word  Table  VPCR  at  the  location 
specified  in  register  VPR,  the  pointer  register  for  this 
table.  The  pointer  register  is  then  incremented  by  a 
value  of  1.  The  next  time  data  for  this  table  are  obtained 
from  the  receiver;  the  pointer  register  will  indicate  that 
the  data  are  to  be  stored  at  the  next  location  in  the  table. 
Interrupt  count  switch  INTC  is  then  set,  in  preparation  for 
use  during  the  second  and  third  15-bit  transfers,  and  pro¬ 
gram  control  returns  to  subroutine  IDLE. 

Second  15 -Bit  Transfer  The  check  on  the  ID  code 
in  subroutine  IDLE  of  the  se.  l  15 -bit  transfer  for  orbital 
parameter  word  No.  1  dire-  ;xecuticn  of  subroutine  MG2. 

Subroutine  MG2  (Fig.  A -5)  begins  by  testing  mes¬ 
sage  sync  flag  FDOP.  This  flag  has  been  set  in  subroutine 
MG1,  just  completed;  therefore,  th_s  test  directs  place¬ 
ment  of  the  data  stored  in  the  buffer  register  during  re¬ 
ceiver  interrupt  routine  RCVD  in  Variable  Parameter  Cur¬ 
rent  Word  Table  VPCR  at  the  location  specified  in  register 
VPR,  the  pointer  register  for  this  table.  Program  control 
then  transfers  to  subroutine  COLL. 

Subroutine  COLL  (Fig.  A-6)  increments  index  reg¬ 
ister  XREC,  used  to  distinguish  among  the  buffer  registers 
in  receiver  interrupt  subroutin  RCVD,  and  then  resets 
interrupt  count  switch  INTC.  When  reset,  this  switch  in¬ 
dicates  first  execution  of  subroutine  MG2;  wnen  set  it  in¬ 
dicates  second  execution.  The  test  on  the  switch  after 
setting  indicates  that  this  is  not  the  third  interrupt  for 
orbital  parameter  word  No.  1,  directing  return  to  sub¬ 
routine  IDLE. 
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Third  15 -Bit  Transfer.  During  this  second  execution 
of  subroutine  MG2  the  test  in  subroutine  COLL  (Fig.  A -6) 
determines  that  this,  interrupt  is  the  third  15 -bit  transfer 
and  therefore  directs  return  to  s  jbroutine  MG2  (Fig.  A -5). 
The  data  for  the  comple  e  orbital  parameter  word  (all  three 
interrupts)  are  then  converted  to  ASCII  format  in  subrou¬ 
tine  PROC  (Fig.  jJ-13)  and  stored  for  printout.  Transfer 
is  then  made  to  subroutine  PRNT. 

Subroutine  PRNT  (Fig.  A-ll)  retrieves  the  address 
of  the  register  containing  the  ASCII -formatted  data  and 
stores  this  address  for  use  in  subroutine  TTYT.  The  status 
of  the  teletypewriter  is  checked  in  subroutine  TEST  (Fig. 
A-ll).  The  teletypewriter  interrupt  is  enabled,  and  when 
subroutine  TEST  confirms  that  the  teletypewriter  is  not 
busy,  subroutine  INTR  (Fig.  A -16)  transfers  program  con¬ 
trol  via  dedicated  location  63  to  subroutine  TTYT  (Fig. 

A -18),  which  controls  the  data  printout.  At  this  point, 
therefore,  orbital  parameter  word  No.  1  is  stored  in  Table 
VPCR  in  BCDX3  format,  as  transmitted  from  the  satellite, 
and  also  printed  out  on  the  teletypewriter  in  ASCII  format. 
Return  is  made  to  subroutine  MG2  (Fig.  A -5)  where  regis¬ 
ter  WORD  is  incremented  from  zero  to  one,  marking  the 
completion  of  the  processing  of  orbital  parameter  word 
No.  1.  Receiver  index  counter  register  XREC  is  set  to 
zero  in  preparation  for  the  processing  of  the  next  word, 
and  program  control  returns  to  subroutine  IDLE. 

Orbital  Parameter  Words  Nos.  2-25 

The  sequence  described  above  for  orbital  parameter 
word  No.  1  is  repeated  for  orbital  parameter  words  Nos. 
2-25  with  one  difference.  At  the  completion  of  the  eighth 
word,  register  WORD  will  contain  the  number  8.  A  test 
on  register  WORD  will  determine  that  eight  words  have 
been  processed  and  that,  therefore,  the  next  word  to  be 
processed  is  the  first  of  the  fixed  parameters.  This  re¬ 
sult  directs  storage  of  words  9-25  in  Fixed  Parameter  Cur¬ 
rent  Word  Table  FPCR.  After  word  25  the  processing  of 
the  first  2 -minute  message  is  complete,  and  the  program 
returns  to  subroutine  IDLE  until  occurrence  of  the  receiver 
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interrupt  marking  the  beginning  of  the  second  2 -minute 
message. 

Figure  28  shows  the  status  of  the  eight  data  tables 
and  pointer  registers  at  the  end  of  the  first  2-minute  mes¬ 
sage.  Table  FPCR  in  Fig.  28  has  been  annotated  with  the 
symbols  for  the  fixed  parameters  to  facilitate  comparison 
with  Table  2.  In  Table  VPCR,  sync  time  is  designated  by 
the  symbol  T0,  and  the  table  entries  are  shown  at  the  2- 
minute  intervals  (referred  to  TQ)  that  occur  in  the  first  2- 
minute  message.  The  changes  that  have  occurred  in  the 
major  counters,  registers,  flags,  and  switches  during  the 
first  2-minute  message  are  summarized  in  Table  5. 


SECOND  TWO-MINUTE  MESSAGE 
Doppler  Count  Word 

First  15-Bit  Transfer.  Subroutine  DPI  (Fig.  A -3) 
proceeds  as  described  above  for  the  first  2 -minute  mes¬ 
sage  through  the  check  of  message  sync  flag  FDOP.  FDOP 
was  set  at  the  beginning  of  message  data  word  No.  1  in  the 
first  2-minute  message  and  thus  directs  execution  of  sub¬ 
routine  BCXS. 

Subroutine  BCXS  (Fig.  A -7)  checks  whether  the 
doppler  data  stored  in  the  buffer  register  during  subroutine 
RCVD  are  valid  BCDX3  characters.  A  character  with  a 
BCDX3  value  between  0  and  9  (including  those  values)  is 
accepted  as  valid.  A  character  outside  the  range  0-9  is 
invalid;  the  subroutine  replaces  invalid  characters  with  a 
value  of  BCDX3  zero.  Return  is  then  made  to  subroutine 
DPI  (Fig.  A-3)  where  the  valid  character  is  stored  in  dopp¬ 
ler  word  Table  DOPS  at  the  location  given  in  pointer  regis¬ 
ter  D04.  Register  D04  is  incremented,  and  interrupt 
count  switch  INTC  is  set  in  preparation  for  its  later  use  in 
determining  the  first  and  second  occurrences  of  subroutine 
DP2.  Return  is  then  made  to  subroutine  IDLE. 

Second  15 -Bit  Transfer.  Subroutine  DP2  (Fig.  A-3) 
proceeds  as  described  above  for  the  first  2 -minute  message 
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Table  5 

Summary  of  Changes  in  Major  Counters,  Registers,  Flags, 
and  Switches  During  the  First  2-Minute  Message 


Name 

Mnemonic 

Action 

ESM/Real-Time  Switch 

SW2 

Set  to  real-time  position. 

Interrupt  Count  Switch 

INTC 

Set  in  subroutine  MG1,  reset 
in  first  execution  of  subroutine 
MG2,  set  in  second  execution 
of  subroutine  MG2. 

Orbital  Word  Counter 

WORD 

Initialized  to  zero;  incremented 
at  each  odd  execution  of  sub¬ 
routine  MG2. 

Receiver  Interrupt  Flag 

RCFC 

Set  in  subroutine  RCVD;  reset 
in  subroutine  IDL2. 

Program  Clock  Register 

CLOC 

Initialized  to  zero;  incremented 
once  per  minute  in  subroutine 
INCR. 

Sync  Time  Register 

SYNC 

Initialized  to  zero;  reset  to  a 
value  of  2  minutes  in  subrou¬ 
tine  DPI. 

Message  Sync  Flag 

FDOP 

Initialized  to  zero;  set  in  sub¬ 
routine  MG1. 

Receiver  Index  Counter 

XREC 

Initialized  to  zero;  incremented 
in  each  execution  of  subroutines 
MG1  and  MG2;  set  to  zero  at 
end  of  subroutine  MG2. 
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through  the  check  of  message  sync  flag  FDOP.  As  stated 
in  the  previous  section,  FDOP  was  set  at  the  beginning  of 
message  data  word  No.  1  in  the  first  2 -minute  message 
and  thus  directs  execution  of  subroutine  BCXS. 

Subroutine  BCXS  (Fig.  A-7)  and  the  storage  of  the 
doppler  word  in  doppler  word  Tabl-»  DOPS  proceed  as  de¬ 
scribed  in  the  previous  section.  Subroutine  COLL  (Fig. 

A -6)  then  checks  for  the  second  or  third  interrupt.  Since 
this  is  the  second  15 -bit  transfer,  return  is  made  to  sub¬ 
routine  IDLE. 

Third  15 -Bit  Transfer.  During  this  second  execu¬ 
tion  of  subroutine  DP2,  the  test  in  subroutine  COLL  (Fig. 
A-6)  determines  that  this  interrupt  is  the  third  15-bit  trans¬ 
fer  and  therefore  directs  return  to  subroutine  DP2  (  Fig. 

A -3).  A  test  is  made  to  confirm  that  the  value  stored  in 
Table  DOPS  during  the  previous  execution  of  subroutine 
DPI  is  not  BCDX3  zero.  If  it  is  not,  this  result  is  con¬ 
strued  as  a  valid  transfer,  doppler  flag  DPFG  is  incre¬ 
mented,  and  program  controltransfers  to  subroutine  VALD. 

Subroutine  VALD  (Fig.  A -8)  begins  by  testing  for 
an  injection.  At  this  point  it  is  assumed  that  the  test  finds 
no  injection  has  occurred;  the  section  cm  Injection  during 
Pass  describes  the  program  procedures  when  injection  has 
occurred.  Program  control  then  transfers  to  subroutine 
VALI. 


Subroutine  VALI  (Fig.  A -9)  examines,  in  turn,  the 
status  of  error  Tables  FPER  and  VPER  for  the  fixed  and 
variable  parameters,  respectively.  At  this  point  in  the 
second  2 -minute  message  these  tables  contain  the  value  -2. 
The  subroutine  increments  the  error  tables  to  a  vale  ,  of 
-1,  and  fills  Tables  FPVD  and  VPVD  with  the  values  in 
Tables  FPCR  and  VPCR,  respectively.  Majority  vote 
count  registe MJV1  is  incremented,  and  program  control 
transfers  to  subroutine  UPTB. 

Subroutine  UPTB  (Fig.  A-7)  increments  message 
count  register  M3CT  from  zero  to  erne  and  resets  the 
addresses  of  the  pointer  registers  for  the  eight  data  tables 
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to  their  initialization  values.  A  test  is  then  made  on  mes¬ 
sage  count  register  MSCT,  which  advances  the  values  in 
the  pointer  registers  for  Tables  VPVD,  VPER,  DOPS,  and 
REFS  three  locations  per  message.  The  MSCT  value  of  1 
directs  advancement  of  the  four  pointer  registers  by  three 
locations.  Figure  29  shows  the  status  of  the  eight  data 
tables  and  pointer  registers  after  execution  of  subroutine 
UPTB. 

The  doppler  data  are  converted  to  ASCII  format  in 
subroutine  PROC  (Fig.  A -13)  and  printed  out  on  the  tele¬ 
type  in  subroutine  PRNT  (Fig.  A-ll)  in  the  same  manner 
as  described  for  orbital  parameter  word  No.  1  in  the  pre¬ 
vious  section  on  the  Third  15-Bit  Transfer.  Program  con¬ 
trol  returns  to  subroutine  IDLE. 

Refraction  Count  Word 

First  15 -Bit  Transfer.  The  check  on  the  ID  code 
in  subroutine  IDLE  of  the  first  15-bit  transfer  for  refrac¬ 
tion  count  word  No.  1  directs  execution  of  subroutine  RF1. 

Subroutine  RF1  (Fig.  A -4)  finds  that  message  sync 
flag  FDOP  has  been  set  and  therefore  stores  the  data  in 
refraction  Table  REFS  at  the  loc?U*«  specified  by  pointer 
register  RE-1.  From  Fig.  24  note  that  the  value  for  this 
first  transfer  of  refraction  data  is  always  equal  to  BCD 
zero.  Program  control  then  returns  to  subroutine  IDLE. 

Second  and  Third  15 -Bit  Transfers.  The  check  on 
the  ID  code  in  subroutine  IDLE  of  the  second  and  third  15- 
bit  transfers  for  refraction  count  word  No.  1  directs  exe¬ 
cution  of  subroutine  RF2. 

Subroutine  RF2  (Fig.  A-4)  is  executed  twice,  and 
the  sequence  for  table  storage  and  printout  just  described 
for  the  doppler  data  is  repeated  for  the  refraction  data. 

Orbital  Parameter  Words  Nos.  1-25 

The  sequence  described  above  for  orbital  parame¬ 
ter  words  Nos.  1-25  in  the  first  2-minute  message  is 
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repeated  for  these  same  words  in  the  second  2 -minute 
message.  Figure  30  shows  the  status  of  the  eight  data 
tables  and  pointer  registers  at  the  end  of  the  second  2- 
minute  message.  The  changes  that  have  occurred  in  the 
major  counters,  registers,  flags,  and  switches  during  the 
second  2 -minute  message  are  summarized  in  Table  6. 


THIRD  AND  FOURTH  TWO-MINUTE  MESSAGES 

During  the  third  execution  of  the  subroutines  de¬ 
scribed  above  for  the  first  and  second  2 -minute  messages, 
subroutine  VALI  (Fig.  A-9)  will  find  a  BCD  value  of  -1 
stored  in  error  Table  FPER  and  the  first  24  positions  of 
error  Table  VPER. 

With  respect  to  the  fixed  parameters,  this  result 
directs  execution  of  an  exclusive -or  comparison,  line  by 
line,  of  the  entries  in  Tables  FPCR  and  FPVD,  with  the 
result  of  the  comparison  being  stored  on  the  corresponding 
line  in  Table  FPER.  Inasmuch  as  an  exclusive -or  com¬ 
parison  yields  a  one  bit  for  each  two  binary  bits  that  are 
different,  but  a  zero  bit  for  each  two  binary  bits  that  are 
alike,  the  resultant  entries  in  Table  FPER  will  be  the 
differences  between  the  entries  in  Tables  FPCR  and  FPVD. 
In  this  particular  program,  which  uses  two's  complement 
arithmetic,  the  numbers  -2  and  -1  are  picked  for  the 
initial  entries  in  Table  FPER  because  in  two's  complement 
arithmetic  neither  number  is  likely  to  occur  as  an  end  re¬ 
sult  of  the  exclusive-or  comparison. 

With  respect  to  the  variable  parameters,  an  exclu¬ 
sive-or  comparison  is  made  of  the  entries  in  Tables  VPCR 
and  VPVD,  with  the  result  stared  in  Table  VPER.  For  the 
variable  parameters  the  pointer  registers  VPV  and  VPE 
are  set  such  that  data  for  the  same  time  interval  are  com¬ 
pared.  Pointer  register  VPE  is  also  set  such  that  the 
comparison  result  is  entered  in  Table  VPER  on  the  line 
corresponding  to  the  entry  in  Table  VPVD.  Figure  31 
shows  the  status  of  the  eight  data  tables  and  pointer  regis¬ 
ters  at  the  end  of  the  processing  of  the  doppler  data  in  the 
third  2-minute  message. 
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Fig.  30  STATUS  OF  DATA  TABLES  AND  POINTER  REGISTERS  AT  END  OF  SECOND  TWO-MINUTE  MESSAGE 
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Table  6 

Summary  of  Changes  in  Major  Counters,  Registers,  Flags, 
and  Switches  During  the  Second  2 -Minute  Message 


Name 

Mnemonic 

Action 

Orbital  Word  Counter 

word'N 

Receiver  Interrupt  Flag 

RCFG  / 

Same  as  for  first  2 -minute 

Program  Clock  Register 

CLOC  r 

message. 

Sync  Time  Register 

SYNC  J 

Interrupt  Count  Switch 

INTC 

Set  in  subroutines  DPI,  RF1, 

and  MG1:  reset  in  first  execu¬ 
tion  of  subroutine  COLL,  set 
in  second  execution  oi  subrou- 
b  e  COLL. 

Message  Sync  Flag  FDOP  No  change. 

Receiver  Index  Counter  XREC  Incremented  in  each  execution 

of  subroutines  DPI  and  DP2, 
then  set  to  zero  at  end  of  DP2. 
Incremented  in  each  execution 
Of  subroutines  RF1  and  RF2, 
then  set  to  zero  at  end  of  RF2. 
Incremented  in  each  execution 
of  subroutines  MG1  and  MG2, 
then  set  to  zero  at  end  of  MG2. 

Majority  Vote  Counter  MJV1  Initialized  to  zero;  incremented 

in  subroutine  VALI. 

Message  Counter  MSCT  Initialized  to  zero;  incremented 

in  subroutine  UPTB. 
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Fig.  31  STATUS  OF  DATA  TABLES  AND  POINTER  REGISTERS  AT  END  OF  DOPPLER  WORD  IN  THIRD  TWO-MINUTE  MESSAGE 
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During  the  fourth  2 -minute  message  the  content  of 
Tables  FPER  and  VPER  will  again  be  examined  in  subrou¬ 
tine  VALI  (Fig.  A -9).  If  the  entry  on  any  given  line  of 
these  tables  is  zer  .  ^he  corresponding  lines  of  Tables 
FPCR  and  FPVD  (or  VPCR  and  VPVD)  agree  and  hence  the 
line  in  Table  FPVD  (or  VPVD)  contains  valid,  majority- 
voted  data. 

Alternatively  if  the  entry  on  any  given  line  of  Tables 
FPER  and  VPER  is  not  zero,  validation  is  to  be  performed 
as  follows: 

(a)  An  exclusive-or  comparison  is  made  between 
the  entries  in  Tables  FPCR  and  FPVD  (or  VPCR  and  VPVD), 
with  the  result  placed  temporarily  in  a  result  register.  At 
this  point  in  the  fourth  2 -minute  message  Tables  FPCR  and 
VPCR  contain  the  data  from  the  third  2 -minute  message. 
Tables  FPVD  and  VPVD  contain  data  from  the  first  2- 
minute  message.  Tables  FPER  and  VPER  contain  the  re¬ 
sults  of  the  exclusive-or  comparison  on  data  from  the  first 
and  second  messages. 

(b)  A  logical-and  operation  is  now  made  on  the  re¬ 
sults  of  the  two  exclusive-or  operations  with  the  result  re¬ 
placing  the  previous  result  in  the  result  register.  Inas¬ 
much  as  a  logical-and  operation  results  in  a  one  bit  for 
each  two  bits  that  are  one  bit  and  a  zero  bit  otherwise,  the 
word  in  the  result  register  reflects  differences  between 
the  word  in  the  first  massage  and  the  words  in  both  the 
second  and  third  messages. 

(.c)  The  result  of  the  logical-and  operation  is  then 
exclusive-or1  ed  with  the  validated  table  word  to  comple¬ 
ment  the  bits  in  error,  and  the  error  table  entry  is  set  to 
the  new  error  pattern.  This  process  will  continue  until 
there  is  a  zero  error  result. 

Figure  32  summarizes  the  validation  process  us¬ 
ing  as  example  the  entry  100  011  010  001,  or  (in  octal 
notation)  \  321(g).  The  example  assumes  that  in  the  first 
2 -minute  message  this  entry  is  received  as  5321(g),  in  the 


-  86  - 


i 

7 

r 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

t 

I 

i 

I 


TMC  -JOHNS  HOPKINS  UNIVERSITY 

APPLIED  physics  laboratory 


JILVRW  »W»tW3  MAR1UND 


second  2-minute  message  as  4331(g),  and  in  the  third  2- 
minute  message  as  4421(g)  .  After  initialization  (step  1) 
processing  of  the  entry  is  done  in  the  second,  third,  and 
fourth  messages  with  the  results  shown  in  Fig.  32  in  Steps 
2,  3,  and  4,  respectively.  The  values  of  -2  and  -1  shown  in 
the  error  word  column  entries  for  steps  1  and  2,  respec¬ 
tively,  are  in  two's  complement  format. 

After  a  majority  vote  is  reached  for  the  data  on  any 
particular  line  in  Tables  FPVD  and  VPVD,  new  data  read 
into  the  corresponding  entry  in  Tables  FPCE  and  VPCR 
during  subsequent  2 -minute  messages  are  discarded 


TWO-MINUTE  MESSAGES  NOS.  5-9 

The  above  procedures  are  repeated  for  2 -minute 
messages  Nos.  5-9  such  that  at  the  end  of  the  ninth  mes¬ 
sage  the  data  tables  will  appear  as  shown  in  Fig.  33,  and 
the  check  on  the  number  of  doppler  counts  in  subroutine 
IDLE  will  transfer  program  control  to  subroutine  NAV. 
Before  discussion  of  this  subroutine,  two  situations  that 
can  affect  the  real-time  program  are  discussed.  These 
two  situations  are  loss  of  lock  and  injection  during  a  pass. 


MESSAGE  DEVIATIONS 
Loss  of  Lock 


A  system  re*  urement  is  that  the  relative  time 
associated  with  a  2 -minute  interval  and  a  particular  vari¬ 
able  parameter  data  set  be  known,  i.  e. ,  the  actual  time 
that  a  doppler  counting  interval  spans  and  the  associated 
set  of  variable  parameters  for  that  2 -minute  interval. 

Time  synchronization  of  doppler  data  is  accomp¬ 
lished  by  making  use  of  satellite  time.  The  satellite  trans¬ 
mits  a  sync  word  every  2  minutes  at  an  integral  universal 
2 -minute  time.  This  sync  word  time  determines  the  dopp¬ 
ler  counting  interval.  However,  if  a  receiver  loses  lock 
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from  the  satellite  during  a  particular  interval,  doppler 
counting  discontinues  until  lock  is  regained  and  the  receiver 
regains  satellite  time  sync.  One  or  more  doppler  counts 
can  be  lost  during  thi;:  time.  Once  lock  is  regained,  it  is 
the  responsibility  of  the  computer  program  to  locate  the 
right  time  slot  for  the  doppler  data. 

This  is  also  true  for  the  variable  parameter  data, 
since  time  dependent  variable  parameter  data  precess 
through  the  message  set  one  satellite  word  every  2  minutes; 
i.  e. ,  at  the  end  of  transmission  of  one  2-rninute  interval  of 
data  in  the  variable  parameter  portion,  parameter  2  be¬ 
comes  parameter  1,  3  becomes  2,  4  becomes  3,  etc. ,  and 
a  new  parameter  replaces  parameter  8.  For  the  purpose  of 
real-time  validation  it  is  required  that  a  variable  parameter 
set  be  referenced  to  the  correct  relative  time  interval. 

A  programmed  counter  can  be  used  to  detect  musing 
doppler  counts  and  thereby  use  the  occurrence  or  detected 
non  occurrence  of  doppler  data  to  update  table  storage  ad¬ 
dresses.  A  method  for  accomplishing  this  function  is  as 
follows; 


If  the  receiver  loses  lock  on  the  satellite  signal, 
interrupt  flag  RCFG  will  not  be  set,  and  the  program  will 
continue  to  dwell  in  subroutine  IDLE,  with  time  being  incre¬ 
mented  in  subroutine  INCR  and  the  2 -minute  elapsed  test 
being  made  in  subroutine  TES2  (Fig.  A -8).  When  the  con¬ 
tent '  of  registers  SYNC  and  CLOC  become  equal,  2  minutes 
have  elapsed  and  subroutine  TES2  will  check  doppler  flag 
DPFG  to  determine  if  valid  doppler  data  have  been  received. 
If  loss  of  lock  occurred  before  valid  doppler  data  have  been 
received,  then  the  doppler  flag  will  not  have  been  set  and 
the  table  updating  done  in  subroutine  DP2  will  not  have  been 
executed.  In  subroutine  TES2  the  finding  that  the  doppler 
flag  has  not  been  set  will  direct  transfer  of  program  control 
to  subroutine  UPTB. 

Subroutine  UPTB  (Fig.  A -7)  is  executed  as  previously 
described  with  message  count  register  MSCT  being  incre¬ 
mented  as  before.  This  result  will  cause  the  pointer  regis¬ 
ter  for  Tables  VPVD,  VPER,  DOPS,  and  REFS  to  skip  over 
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the  table  positions  where  the  missing  data  would  have  been. 
For  this  reason  the  initialization  entries  in  Tables  DOPS 
and  REFS  are  selected  to  be  the  correct  entries  for  miss¬ 
ing  data.  Return  is  made  to  subroutine  TES2,  which  directs 
transfer  to  subroutine  RESE. 

Subroutine  RESE  (Fig.  A-7)  resets  internal  program 
clock  register  CLOC  to  zero  to  marl:  the  beginning  of  the 
2 -minute  interval  and  sets  register  SYNC  to  a  value  of  2 
minutes  to  mark  the  time  of  the  next  2 -minute  interval. 
Program  control  then  returns  through  subroutine  TES2  to 
subroutine  IDLE  where  the  routine  repeats  as  described 
above  until  the  operator  terminates  the  collection  of  real¬ 
time  data  from  the  receiver,  or  until  the  next  receiver  in¬ 
terrupt  occurs. 

Injection  During  Pass 

The  test  to  determine  if  an  injection  has  been  made 
during  the  pass  occurs  in  subroutine  INJT  to  which  transfer 
is  made  during  subroutine  VALD  (Fig,  A -8). 

Subroutine  INJT  (Fig.  A -9)  checks  whether  two  or 
more  2-minute  messages  have  been  received.  If  they  have, 
a  comparison  is  made  between  the  times  of  perigee  in  the 
two  messages,  which  will  be  in  Tables  FPCR  and  FPVD. 
Inasmuch  as  the  satellite  message  is  updated  by  the  ground 
injection  station  twice  per  day  at  approximately  12 -hour 
intervals,  the  change  in  the  value  of  perigee  time  in  the  two 
messages  will  yield  a  bit  difference  of  6  or  greater,  if  an 
injection  has  occurred.  If  an  injection  has  occurred,  a 
test  will  then  be  made  on  majority  vote  count  register  MJV1 
to  determine  how  many  majority- voted,  valid  messages 
have  been  received.  If  three  or  more  valid  messages  have 
been  obtained,  sufficient  data  are  already  available  for  use 
in  the  fix  calculati  ms  and  return  is  made  to  subroutine 
VALD. 


If  the  number  of  valid  messages  is  less  than  three, 
there  will  not  be  a  sufficient  amount  of  data  available  to 
complete  the  majority  vote  process  because  the  satellite  is 
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transmitting  an  updated  message  and  no  further  data  from 
the  old  message  will  be  obtained.  This  result  directs  that 
Tables  FPER  and  VPER  be  reset  to  -2  again  so  that  the 
majority  vote  process  may  be  conducted  with  the  updated 
message,  and  return  is  made  to  subroutine  VALD. 

An  aPc-i  native  method  for  detecting  injection  uses 
satellite  words  140,  146,  or  152.  At  the  time  of  an  injec¬ 
tion  these  words  are  transmitted  with  a  value  of  binary 
zero.  This  method  has  the  disadvantage  that  it  is  not  relia¬ 
ble  if  the  receiver  loses  lock  during  injection. 


SUBROUTINE  NAV 

Determine  Validity  of  Variable  Parameters 

Returning  to  subroutine  NAV  (Fig.  A  -1)  the  first 
operation  is  a  check  to  determine  if  any  of  the  entries  in 
variable  parameter  majority  voted  word  Table  VPVD  did 
not  pass  the  majority  vote  test.  For  this  operation,  pro¬ 
gram  control  passes  to  subroutine  VPTS. 

Subroutine  VPTS  (Fig.  A-12)  begins  by  summing 
the  three  lines  in  variable  parameter  majority  voted  word 
Table  VPER  corresponding  to  the  entry  for  the  time  inter¬ 
val  2  minutes  before  sync  time  (TQ  -2).  If  the  sum  is  zero 
the  three  lines  in  variable  parameter  majority  voted  word 
Table  VPVD  for  T0  -2  are  valid  data.  The  subroutine  re¬ 
peats  until  all  the  variable  data  received  in  the  interval 
from  2  minutes  before  sync  time  through  18  minutes  after 
sync  time  are  examined. 

Assume  now,  for  example,  that  the  entry  for  a  2- 
minute  entry,  say  TQ  +4,  did  not  pass  the  majority  vote 
test,  i.  e. ,  the  sum  of  the  entries  in  Table  VPER  for  the 
three  transfers  is  not  zero.  Subroutine  VPTS  sets  the 
three  lines  in  variable  parameter  majority  voted  word 
Table  VPVD  for  the  entry  T0  +4  to  a  value  of  binary  zero 
and  alsc  sets  the  two  doppler  words  Nj  and  Ng  (i.  e. ,  the 
two  doppler  words  centered  on  time  TQ  +4)  to  a  value  of 
BCDX3  zero.  Deleting  these  two  doppler  words  minimiz.cs 
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the  error  in  the  portion  of  the  navigation  mathematic  rou¬ 
tines  in  which  the  differences  in  the  actual  and  theoretical 
satellite  positions  at  this  time  are  determined. 

The  program  concludes  by  discarding  the  variable 
data  for  the  intervals  for  which  the  data  are  not  received 
three  times  (i.  e. ,  those  prior  to  T0-2  and  after  TQ  +18), 
and  program  control  then  returns  to  subroutine  NAV. 


The  next  operation  in  subroutine  NAV  is  to  punch  a 
tape  for  the  majority  voted  data,  the  doppler  data,  and  the 
refraction  data.  For  this  operation,  control  passes  to 
subroutine  PTAP. 

Subroutine  PT A P  (Fig.  A-ll),  using  subroutines 
PROC  and  PRNT,  causes  the  17  fixed  parameter  majority 
voted  words,  the  11  variable  parameter  majority  voted 
words  for  the  2 -minute  intervals  from  TQ  -2  through  TQ  +18, 
the  eight  doppler  words,  and  the  eight  refraction  words  to 
be  printed  out  on  the  teletypewriter  in  ASCII  format  and  also 
punched  on  tape  in  ASCII  format.  Program  control  then  re¬ 
turns  to  subroutine  NAV. 

Convert  Fixed  Parameters,  Doppler  Data,  and  Refraction 
Data  to  Floating  Point  Format 

The  next  operation  in  subroutine  NAV  is  to  convert 
the  fixed  parameters,  doppler  data,  and  refraction  data  to 
floating  point  format.  For  this  operation  program  control 
passes  to  subroutine  FMTT. 

Subroutine  FMTT  (Fig.  A -14)  converts  the  fixed 
parameters,  doppler  data,  and  refraction  data  from  BCDX3 
format  to  BCD  format  and  then  to  floating  point  format. 

With  respect  to  the  fixed  parameters.  Table  2  shows  that 
the  coding  of  the  most  significant  digit  in  the  value  for  time 
of  perigee  differs  from  the  coding  of  the  most  significant 
digit  in  the  values  for  the  remainder  of  the  fixed  parameters. 
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A  test  is  made  in  subroutine  FMTT  therefore  to  locate 
time  of  perigee  and  convert  the  first  character  from  the 
coded  value  in  Table  2  to  the  conventional  BCD  value.  In 
addition,  all  the  data  are  treated  as  integer  values;  i.  e. , 
it  is  assumed  that  each  value  is  multiplied  by  the  proper 
power  of  10  to  make  it  an  integer. 

For  example,  time  of  perigee,  i.e.,  the  first  fixed 
parameter  received  from  the  satellite,  is  a  number  con¬ 
sisting  of  four  integer  places  and  five  fractional  places. 

The  configuration  of  the  number  is  thus  XXXX.  XXXXX. 

For  purposes  of  the  conversion  from  BCD  to  floating  point 
it  is  assumed  that  this  number  is  multiplied  by  10^,  thus 
making  it  an  integer.  Later  in  the  navigation  math  routines 
the  value  of  time  of  perigee  will  be  multiplied  by  10"^  to 
give  it  its  proper  scaling  again.  The  advantage  of  this  pro¬ 
cess  is  that  a  straightforward  BCD  to  binary  routine  can  be 
used  in  subroutine  FMTT  which  does  not  have  to  account  for 
the  scaling  of  the  various  parameters.  Later  in  the  naviga¬ 
tion  mathematical  routines  these  scalings  can  be  accounted 
for  very  easily. 

Program  control  returns  to  subroutine  NAV. 

Convert  Variable  Parameters  to  Floating  Point  Format 

The  next  step  in  subroutine  NAV  is  to  convert  the 
variable  parameters  from  BCDX3  format  to  BCD  format 
and  then  to  binary  floating  point  format.  Next  the  variable 
data  for  each  2 -minute  entry  are  separated  into  their  con¬ 
stituent  components,  i.e.,  the  out-of-plane  component  (*?), 
the  correction  (AE)  to  the  eccentric  anomaly,  and  the  cor¬ 
rection  (AA)  to  the  mean  semimajor  axis.  Program  con¬ 
trol  transfers  to  subroutine  VPMC. 

Subroutine  VPMC  (Fig.  A -14)  begins  by  checking 
the  variable  parameter  entries  in  Table  VPVD  to  determine 
if  they  are  binary  zero  (see  section  on  Subroutine  NAV). 

If  they  are,  the  program  makes  no  change  in  their  value. 

If  they  are  not,  the  program  converts  the  data  from  BCDX3 
to  BCD. 
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Next  the  value  of  the  out-of-plane  term  is  extracted 
from  its  location  in  the  third  transfer  of  each  of  the  varia¬ 
ble  parameters.  The  out-of-plane  term  is  reconverted  to 
BCDX3  format  and  then  checked  in  subroutine  BCXS  (Fig. 

A -7)  to  determine  if  it  is  a  legal  BCDX3  character.  If  the 
term  is  a  legal  BCDX3  character  it  will  be  reconverted  to 
BCD,  formatted  to  binary  floating  point,  and  stored.  If  it 
is  an  illegal  BCDX3  character  the  term  is  also  formatted 
to  binary  floating  point  and  stored,  but  as  a  negative  value. 
The  negative  value  will  be  used  to  delete  the  illegal  data 
during  the  navigation  mathematical  routines. 


The  program  next  converts  the  data  for  the  correc¬ 
tion  (AA)  to  the  mean  semimajor  axis  and  the  correction 
(AE)  to  the  eccentric  anomaly  into  binary  floating  point. 

Lock -on  (T0)  time  is  next  converted  to  binary  float¬ 
ing  point  and  the  program  returns  to  subroutine  NAV. 


Collect  Navigator's  Estimates 


The  next  step  in  subroutine  NAV  is  to  collect  the 
navigator's  estimates  of  sync  time,  position,  antenna 
height,  heading  (course),  rate  (speed),  day  number  of 
pass,  and  the  day  numbers  of  the  period  for  which  alerts 
are  desired.  Program  control  transfers  to  subroutine 
POSI. 


Subroutine  POSI  (Fig.  A-15)  requests  the  naviga¬ 
tor  to  enter  the  estimates  in  the  format  shown  in  Table  3. 
The  program  reformats  the  data  as  shown  on  Fig.  A-15 
and  stores  them  for  use  in  the  navigation  math  routines, 
described  in  Sections  7  and  8.  These  navigation  math  rou¬ 
tines  will  follow  immediate!  ,  unless  the  navigator 
terminates  the  program.  Before  the  math  routines  are 
discusse  ,  however,  the  modifications  to  the  real-time  data 
processing  procedures  to  allow  their  use  in  nonreal-time, 
or  off-line  postpass  data  processing,  will  be  described. 
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NONREAL-TIME  DATA  PROCESSING 

Nonreal-time  data  processing  is  done  if  the  naviga¬ 
tor  wishes  to  renavigate  the  pass  data  or  if  he  wishes  to 
execute  the  navigation  math  routines  using  pass  data  col¬ 
lected  at  a  previous  time.  The  data  may  be  in  the  form  of 
punched  tape  prepared  as  described  in  the  previous  sec¬ 
tion  or  may  be  a  manual  input  from  the  teletypewriter.  To 
select  the  nonreal-time  option  the  navigator  sets  the  appro¬ 
priate  switch  on  the  computer  console  (SW2  in  the  example 
shown  in  Fig.  A-l).  The  navigator  may  also  elect  to  pre¬ 
pare  a  punched  tape  by  setting  another  switch  (SW4  in  the 
example  shown  in  Fig  A-l)  on  the  computer  console. 

The  program  (Fig.  A-l)  is  executed  as  described 
in  Section  6.  In  the  test  for  interrupt,  subroutine  INP3 
will  find  SW2  set  and  transfer  control  to  subroutine  ESM. 

Subroutine  ESM  (Fig.  A-l)  begins  by  transferring 
program  control  to  subroutine  READ. 

Subroutine  READ  (Fig.  A -10)  directs  the  navigator 
to  enter  the  fixed  and  variable  parameters,  the  doppler 
data,  and  the  refraction  data  either  as  punched  tape  or 
manually  through  the  teletypewriter  keyboard  in  ASCII 
format. 


As  each  group  of  nine  characters  is  entered,  sub¬ 
routine  INPU  (Fig.  A -13)  converts  the  entry  to  BCDX3 
format  and  stores  it  in  the  appropriate  locations  in  Tables 
FPVD,  VPVD,  DOPS,  and  REFS. 

Depending  on  the  setting  of  SW4,  program  control 
will  transfer  to  either  subroutine  PTAP  or  to  subroutine 
FMTT  and  the  sequence  described  in  Section  6  is  repeated. 
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7.  THREE -VARIABLE  NAVIGATION 


METHOD  OF  SOLUTION 

At  this  point  validated  satellite  orbital  data  are 
available  and  arranged  in  tables  in  accordance  with  the 
procedures  described  in  Section  6.  The  doppler  and  iono¬ 
spheric  refraction  data  have  also  been  assembled  in  tables. 
The  variable  parameters,  the  doppler  data,  and  the  iono¬ 
spheric  refraction  data  are  time -ordered  by  2 -minute  in¬ 
tervals.  The  navigator's  estimates  and  the  program  con¬ 
stants  are  given  in  Tables  3  and  4,  respectively.  A  three  - 
variable  fix  is  obtained  using  these  data  by  a  least  squares 
minimization  of  the  residuals  formed  by  differencing  the 
measured  and  theoretical  slant  range  changes.  The  solu¬ 
tion  is  an  iterative  process  in  which  each  iteration  results 
in  a  correction  to  the  navigator's  latitude  (A<p),  longitude 
(<P> ),  and  frequency  offset  (Af).  Successive  iterations  pro¬ 
duce  smaller  correction^.,  and  the  fix  is  obtained  when 
these  corrections  become  smaller  than  predefined  breakout 
constants. 

Figure  34  diagrams  the  steps  followed  to  obtain  the 
navigation  fix.  These  steps  are  divided  into  five  parts  to 
(1)  set  up  input  data,  (2)  perform  initial  noniterative  com¬ 
putations,  (3)  solve  for  the  fix  by  least  squares  minimiza¬ 
tion  in  an  iterative  process,  (4)  edit  the  doppler  data  prepa¬ 
ratory  to  a  repetition  of  the  iterative  fix  procedures,  and 
(5)  calculate  alerts. 

Input  Data 

The  setting  up  of  input  data  for  the  navigation  solu¬ 
tion  computations  consists  of  correcting  the  400-  MHz  dopp¬ 
ler  data  for  the  effects  of  ionospheric  refraction,  setting 
up  the  navigator's  table  of  relative  position  motion,  com¬ 
puting  the  time  of  the  first  fiducial  point  (sync  time),  set¬ 
ting  up  the  table  of  out-of-plane  orbit  corrections  at  4- 
minute  intervals,  and  interpolating  for  the  corrections  at 
2 -minute  intervals.  In  addition  a  determination  is  made  of 
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which  doppler  intervals  must  not  be  considered  in  the  navi¬ 
gation  solution. 


Preliminary  Computations 


Preliminary  computations  for  the  navigation  solu¬ 
tion  which  are  net  in  the  iterative  process  (i.  e. ,  need  only 
be  performed  once  per  fix  computation)  consist  of  computing 
the  satellite  X,  Y,  Z  positions  (earth  center  fixed  inertial 
coordinates)  for  each  interval  of  the  pass. 


Iteration 


The  iterative  process  consists  of  eight  steps  to  be 
executed  in  order  for  each  iteration.  These  steps  are  as 
follows: 

1.  Compute  navigator's  X,  Y,  Z  positions  (earth 
center  fixed  inertial  coordinates)  for  each  interval  of  the 
pass. 

2.  Compute  the  theoretical  slant  range  differences 
from  the  navigator  and  satellite  X,  Y,  Z  coordinates,  com¬ 
pute  the  partial  derivatives  of  slant  range  differences  with 
respect  to  <p  and  X,  and  compute  the  elevation  angles  of 
the  satellite  with  respect  to  the  navigator. 

3.  Compute  measured  slant  range  differences 
from  the  values  of  cycle  count  for  each  interval  of  the  pass. 

4.  Set  up  C  matrix  where  each  row  of  C  is  an 
interval  and  the  elements  are: 

Cjp  =  slant  range  difference  residual, 

Cjj  =  constant  function  of  ground  frequency 
vacuum  wavelength, 

Cj9  =  derivative  of  slant  range  difference  with 
respect  to  9,  and 

Cjg  =  derivative  of  slant  range  difference  with 
respect  to  X. 
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5.  Reduce  the  C  matrix  to  a  3  x  3  A  matrix  by- 
taking  CT  •  C  •  A  =  CT  *  c,  where  cT  is  the  transpose  of  C, 
thus  getting: 

'  aio  +  an  At  +  a12  A<p  +  ai3M  =  °' 


■a20  +  a21At+a22iW+a23  AX  ’°-  and 
‘a30  +  a31Af+?  ^  +  a33  M  =  O' 


6.  By  Cramer's  r of  determinant  solution, 
solve  for  Af,  Ai3  t  and  AX  . 

7.  Update  each  of  the  navigator's  estimated  posi¬ 
tions  by: 

<p. .  ,  =  o.  +  A<p.  and 
l+l  i  l 


+  AA.  , 


where  i  is  the  iteration  number. 


8.  Determine  if  the  values  of  A<p,  AX,  Af  are  be¬ 
low  predefined  breakout  constants.  If  so,  then  the  fix  is 
obtained.  If  not,  repeat  the  iterative  process.  Breakout 
constants  are  chosen  as: 

A<P  s  1.  2  x  10'7  rad, 

AX  *  1.  2  x  io-7  rad,  and 

Af  s  2.4  cycle/minute. 

Data  Editing 

If  doppler  data  have  been  collected  during  more  than 
four  2-minute  intervals,  fix  accuracy  is  improved  by  edit¬ 
ing  the  doppler  data  such  that  intervals  with  elevation  angles 
less  than  7.  5°  are  deleted  from  the  calculations.  After 
deletion  of  the  low  elevation  doppler  data  the  steps  of  the 
iterative  process  are  repeated. 
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Alert  Calculations 

The  alert  computations  described  here  have  been 
designed  to  minimize  computer  memory  requirements 
above  those  required  for  the  position  fix  computation  by 
repeating  several  of  the  steps  used  in  the  fix  computation. 

The  procedure  to  be  used  is  as  follows: 

1.  Compute  satellite  coordinates  at  a  future 
time  T. 

2.  Compute  navigator's  coordinates  at  time  T. 

3.  Compute  elevation  angle 

a.  If  positive  a  satellite  pass  is  underway, 

b.  If  negative  a  satellite  pass  is  not  underway. 

4.  Increment  time  T  and  repeat  Steps  1-3. 

5.  Repeat  Steps  1-4  until  all  desired  alerts  have 
been  generated. 


SOLUTION  FOR  NAVIGATION  FIX  AND  ALERT 
CALCULATIONS 

In  the  following  solution,  the  equation  shown  for  re¬ 
fraction  correction  (Step  A.  3)  is  for  the  ITT  equipment, 
as  given  in  Eq.  (6).  If  the  Magnavox  equipment  is  used. 
Step  A  should  be  modified  to  incorporate  Eq.  (7). 


STEP  A  —  Correct  400 -MHz  doppler  counts  for  effect  of 
ionospheric  refraction. 

INPUTS:  N,  -  Table  of  measured  400-MHz  doppler 
400  counts  from  ITT  SRN-9  receiver 
(cycles). 
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R,  -  Table  of  measured  refraction  counts 
from  ITT  SRN-9  receiver  (cycles). 

KM  -  Number  of  fiducial  times  during  the 
time  from  the  first  fiducial  time  and 
spanning  the  interval  for  which  the 
N  doppler  counts  were  received. 
k400 

1  -  Number  of  cycle  counts. 

The  foU;  ving  equations  shall  be  executed  for  each  value  of 
k  (k  =  1,  2,  3 ,  KM-1): 


otherwise  continue.  (A.  1) 


If  =  2  x  10^,  N^  =  0,  otherwise  continue. 

Nk  ■  V„„ +  i  <2000  -  V- 


(A. 2) 
(A,  3) 


OUTPUTS:  N,  -  Table  of  refraction  corrected  "vacuum" 
doppler  counts  (cycles). 


NDOP  -  Number  of  nonzero  doppler  counts  in 
N,  table. 


STEP  3  —  Compute  navigator's  relative  motion  in  latitude 
and  longitude. 

INPUTS  <P  ,  A  -  Navigator's  estimate  of  his  position 

(radians). 

d  '  Navigator's  heading  at  estimated 

Trst  fiducial  time  (radians  clock¬ 
wise  from  true  north). 

v  -  Speed  at  estimated  first  fiducial  time 

(knots). 
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KM  -  Number  of  fiducial  times  during  the 
time  from  the  first  fiducial  time  and 
spanning  the  interval  for  which  the 
doppler  counts  were  received. 

f  -  Flattening  of  reference  ellipsoid. 


The  following  computations  shall  be  performed  for 
each  value  of  k  (k  =  1,  2,  3.  — ,  KM): 


6  = 


M  =  (k-l)  v^L± 

k  cosV 


-  (k  1)  v  cos  d 


(R.  1) 


1  2  t 


3443.934  1  60 J 

[_  J _  1  1_1 

1 3443. 934  1  60  j 


2  1 

-  0.  5<>  sin  0  |  'n.  2) 

ir,?<PeJ(R.3) 


1  +  6(1  -0.  36  sir 


OUTPUT:  A<P^,  AA^  -  Table  of  navigator's  relative  mo¬ 
tion  in  latitude  (A<p)  and  longitude 
(AA)  at  2 -minute  intervals  (radians). 


STEP  C  —  Compute  first  fiducial  time. 


INPUTS:  T 
-  c 


Navigator's  estimate  for  first  fiducial 
time  (minutes  GMT). 


t 


0 


Two-minute  interval  number  from  first 
variable  parameter  in  satellite  message. 


K' 


[  ]  means  integer  part  of 


(C.  1) 


I  =  2  K' 


(C.  2) 


t' 

c 


(C.  3) 
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If  7)^  ■  5  <  0  and 

TJk  ^  0  then 

CP(i)  =  100  (T)k  -  5)  -  10  TJk+1 
and  CPT  (2)  =  k. 


(D.4) 


If  7Jk  -  5  <  0  and 

TJk  =  0  then  (D.5) 

CP(1)  =  -10  Vl 

and  CPT  (i)  =  k 

where  i  =  1,  2,  3, - ,  OP. 

If  OP  s  2  then 

7)k  =  0  for  k  *  1,  2,  3,  ---,  KM.  (D .6) 

If  OP=  3,  execute  Eq.  (D.  7-a)  for  k  =  1,  2,  3,  — ,  KM. 

If  OP  =  4  and  N  =  0  execute  Eq.  (D.  7-a)  for  k  =  1,  2, 

3  and  Eq.  (D.  7-b)  for  k  =  4,  5,  6, - ,  KM. 

If  OP  =  4  and  N  f  0  execute  Eq.  (D.  7-a)  for 

k  =  1,  2  and  Eq.  (D.  7  -b)  for  k  =  3,  4,  5, - ,  KM. 

If  OP  =  5  and  N  =  0  execute  Eq.  (D.  7-a)  for  k  -  1,  2, 

3,  Eq.(D.  7-b)  for  k  =  4,  5,  and  Eq.  (D.  7-c)  for 
k  =  6,  7,  8,  — ,  KM. 

If  OP  =  5  and  N  i  0  execute  Eq.  (D.  7-a)  for  k  =  1,  2, 

3,  Eq.  (D.  7-b)  for  k  =  4,  and  Eq.  (P.  7-c)  for  k  = 

Z,  6,  7, - ,  KM. 


(D.  7) 
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t  =  Tn  -  t 

0  p 

tD  =  1440  -  2ll/n 
K 


(E.  1) 
(E.  2) 


If  t  s  -480  then  At  =  t  +  1440. 

P 

If  -480  <  t  <  t_  then  At  =  t. 

R  p 

If  t_  t  then  At  =  t  -1440. 

R  p 


(E.  3) 


QU  '  UT:  At  -  Time  between  time  of  perigee  and  first 
^  fiducial  time  (minutes). 


STEP  F  —  Compute  satellite  coordinates  at  2 -minute 
intervals. 

INPUTS:  At  -  Time  between  time  of  perigee  anc.  first 
^  fiducial  time  (minutes). 

KM  -  Number  of  positions  to  be  computed. 

-  All  satellite  orbit  parameters  from 
message. 

The  following  computations  shall  be  performed  for 
each  value  of  k  (k  =  I,  2,  3, - ,  KM): 


At.  =  At  +  2  (k  -  1), 
k  p 

Mk  -  n  Atk, 


(F.  1) 
(F.  2) 


E,  =  M.  +  €  sin  M,  +  AE,  ,  [assumes  that  Mfc,  AEj.(F.  3) 

and  E^  are  in  radiansj 


Ak  =  A0  +  AAk' 

\  =  Ak  (cos  Er  -  C), 

vk  -  Ak(sinEk). 

Wk  =  wo  ""AV 


(F.  4) 
(F.  5) 
(F.  6) 
(F.  7) 
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xk 

=  u,  cos  00, 
k  k 

-  vk  sin 

(F.  8) 

4 

=  uk  sin 

+  Vk  C0S  “k* 

(F.  9) 

zk 

=  V 

(F.  10) 

4 

*  <«o  -  V 

i  +  (fl  -  to  )  At,  , 
e  k 

(F.  11) 

Sk  = 

xkcosV 

^k  Ci  sin  K  +  \ 

Si 

sin  £k> 

(F.  12) 

Sk  = 

xk  sln  \  ' 

yk Ci  oos\-z'k 

Si 

cos  ^k>  and 

(F.  13) 

ZSk 

=  y'  Si  + 

\  «• 

(F.  14) 

OUTPUT:  X  ,  Y„  ,  Z  —  Satellite  coordinates  at  the 

^  fiducial  time  points  (meters). 


STEP  G  —  Compute  navigator’s  coordinates  and  partial 
derivatives. 


INPUTS:  A <p 


KM 

ITER 


Table  of  navigator's  relative  motion 
in  latitude  at  fiducial  times  (radians). 

Table  of  navigator's  relative  motion 
in  longitude  at  fiducial  times  radians). 

Fix  latitude  and  longitude  (radians) 

(  Note:.  Initial  values  of  <pf  and 

are  <P  and  Xe,  the  navigator's 
estimate  of  his  position. ) 

Number  of  positions  to  be  computed. 

Number  of  iterations. 


The  following  computations  shall  be  performed  for 
each  value  of  k  (k  =  1,  2,  3, - ,  KM): 


cos  <Pk  =  cos  (<P^  +  A*pk), 
sin  <p,  =  sin  (<p-  +  A <p  ), 


(G.  1) 
(G.  2) 
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cos  A  =  cos  (A  +  AA  ), 
k  f  k 

sin  A^  =  sin(A^+  AX^), 

Dk2  =  V  [cos2  +  O  -  f)2  sin2  <PkJ, 

XNk  =  [(R02/Dk) +  h']COS  <PkcosXk' 

YNk  =  [R02/Dk)+h']cos<f,k  sinV 

Rg  (1  -  f)2 

ZNk  '  - D, -  +h'  8toV 

k 


Nk 

dip 


4  2 

R0  U-f)2 


+  h*  sin  <P,  cos  A  , 
k  k 


R04  (1  -  f)2 


+  h/  sin  <Pk  sin  A^  , 


(G.3) 
(G.4) 
(G.5) 
(G.  6) 


(G.  7) 


(G.  8) 


(G.  9) 


(G.  10) 


!  I 


R04(l-f)2 

- - -  +  h'  cos  <P,  , 

D* 

k  J 


•  YNk  ’  and 


Nk 
d  A 


(G.  11) 


(G.  12) 


(G.  13) 


OUTPUTS:  XN« ,  Y.„,  "  Navigator's  coordinates 

'<fv  at  the  fiducial  time  points 
(meters). 
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KM 


-  Number  of  positions  to 
be  calculated. 


The  following  computations  shall  be  performed  for 
each  value  of  k  (k  =  1,  2,  3, - ,  KM): 

xk  ■ 

XSk  ‘  XNk  ’ 

(H.  1) 

Yk  = 

YSk  ’  YNk‘ 

(H.  2) 

zk  * 

ZSk  '  ZNk* 

(H.  3) 

sk2  ■ 

\  ■ 

2  2  2 

X.  +  Y,  +  Z,  , 
k  k  k 

(H.  4) 

(H.  5) 

«k2  = 

XSk2  +  V  -  ZSk2- 

(H.  6) 

2 

rk  = 

v  2  2  .  2 

Nk  *Nk  'r  Nk  ’ 

(K.  7) 

rk  = 

[V^V-Kk2]1'2. 

(H.  8) 

15. 

d  <p 

•-  1  [  9  XNK  3  YNk  9  ZNk  ] 

Sk  [  k  Yk  S<p  ~k  a<p  J 

(H.  9) 

9sk 

ax 

-  1  L  9  XNk  Y  9  YNk  1 

sv  L  k  ax  k  ax  J 

(H. 10) 

sin  E,  = 
k 


Xk  XNk  +  Yk  YNk  *  Zk  ZNk 

Sk  rk  J' 


and 


(H.  11) 
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If  sin  E.  < 
k+1 


sin  E.  then  sin  E 

k  max 


sin  E,  . 
k 


(H.  12) 


OUTPUTS:  -  Table  of  theoretical  slant  ranges 

at  the  fiducial  time  points 
(meters). 


3  (p 


3  <p 


Table  of  partial  derivatives  of 
the  theoretical  slant  ranges 
with  respect  to  latitude  and 
longitude  at  the  fiducial  time 
points  (meters /radian). 


sin  E 


max 


Sine  of  maximum  elevation  angle 
for  the  pass  (dimensionless). 


STEP  I  —  Compute  refraction  corrected  measured  slant 
range  differences. 


INPUTS:  Nk  -  Table  of  refraction  corrected 

"vacuum"  doppler  counts 
(cycles). 

K  -  Number  of  cycle  counts. 


L  -  Wavelength  of  navigator's  esti¬ 

mate  of  offset  frequency 
(meters). 


f  -  Initial  value  of  offset  frequency 

1  920  000  cycles /min  [32  000 
cycles/  sec] 

The  following  equation  shall  be  performed  for  each 
value  of  k(k  =  1,  2,  3,  KM-1): 


N.  L  -  2.0  f  L 
k  o  o  o 


(I.  1) 
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3  s  3 

k+1  . 

( J.  4)  j 

d\  3A.  ‘ 

*  l 

The  C  matrix 

j 

-*  i 

10 

C11  C12 

C13 

•  *  j 

1 

j 

20 

C21  C22 

C23 

*  • 

_CJ0  CJ1  CJ2  CJ3  J 

J  -  Number  of  rows  in  the  C  matrix. 


STEP  K  —  Form  the  A  matrix. 

INPUTS:  -  C  matrix  elements. 

J  -  Number  of  rows  in  C  matrix. 

J 

a  =  S  C  „  C  n  , 

10  .  ml  m0 

m-i 


S,  Cm2  Cm0  ' 
m=l 


Cm3  Crr.O' 


Cml  Cm!' 


(K.  1) 

(K.  2) 

(K.  3) 

(K.4) 
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OUTPUT:  A  matrix 

where 

~aiO  +  all  Af+al2  AV5  +al3  M  =°' 

^20  +  a21  Af  +  a^2  A<p  +  a.^  AX  =  0,  and 

’a30  +  a31  Af+a32  A<P+a23  AX=°- 
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STEP  L  —  Solve  for  Af,  A<p ,  AA  and  update  estimates 
o?  f,  <P,  and  A. 


INPUT:  A  matrix  elements. 


Bll 


a22  "  al2 


(L.  1) 


B12 


a23  "  a!3 


(L.2) 


B10  =  a20  ‘  al0  1“  *  Note:  a12  =  a21  (L*  3) 


al3  "  a31 
a32  =  a23 


B22 

-  0  El3 

33  "  ai3  an  ’ 

(L.  4) 

B20 

ai3 

a30  "  ai0  an  ’ 

(L.  5) 

A 

=  Bll  B22  -  B12  B12, 

(L.  6) 

A  <p 

=  (B22  BIO  -  B12  B20)/A, 

(L.  7) 

AA 

=  (Bll  B20  -  B12  B10)/A, 

(L.  8) 

Af 

a!0  '  <al2)  (A<P)  '  <a13>  (M) 
a,  - 

(L.  9) 

all 


f  =  f  +  Af  where  f  =  f  on  first  iterationXL- 10) 
<Pf  =  <Pf+A<p,  and  (L.  11) 

Af  =  Af  +  AA.  (L.  12) 


-  116  - 


THt  JOHN*  HO. KIN*  UNIVCMITY 

applied  physics  laboratory 

•u.vt*  *niM  mnuw 


OUTPUTS:  A  f  -  Incremental  change  in  navigator's 

estimate  of  offset,  frequency  (cycles /min). 

A  <p  -  Incremental  change  in  navigator's 
estimated  latitude  (radians). 

AA  -  Incremental  change  in  navigator's 
estimated  longitude  (radians). 

f  -  Estimated  offset  frequency  (cycles /min), 
this  iteration. 

<p  -  Estimated  latitude  (radians)  this 
iteration. 

A^  -  Estimated  longitude  (radians)  this 
iteration. 


STEP  M  ~  Write  out  results. 

INPUTS:  ITER  -  Number  of  this  iteration. 

<p  ,  A  -  Navigator's  initial  position  esti- 
e  mate  (radians). 

<P  A^  -  Navigator's  calculated  position 
this  iteration  (radians). 

f  -  Initial  value  of  offset  frequency 

w  (1  920  000  cycles/min). 

f  -  Navigator's  estimate  of  frequency 

offset  this  iteration  (cycles/min). 

Tq  -  First  fiducial  time  (minutes). 

IDAY  -  Day  number  of  pass. 

sin  E  -  Sine  of  maximum  elevation  angle 
max  ,  . 

for  the  pass. 
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NDOP  -  Number  of  doppler  counts  used  in 
calculation  this  iteration. 


Residual  -  Residual  difference  between  mea- 


sured  and  theoretical  slant  range 

differences  (meters). 

DL  .  =  V  - 

<P  , 

(M.  1) 

f 

e 

DLO  =  X  - 

X  , 

(M.  2) 

f 

e 

FRQ  =  f  - 

?0  • 

and  (M.  3) 

TIME  =  Tq  - 

f  4  . 

(M.  4) 

TS:  ITER 

- 

Number  of  this  iteration. 

DLA,  DLO  - 

Total  change  in  navigator's 
position  (radians). 

FRQ 

- 

Total  change  in  frequency 
( cycles  /min). 

V  X, 

- 

Navigator's  calculated  posi¬ 
tion  this  iteration  (radians). 

TIME 

- 

Fix  time  (minutes). 

IDAY 

- 

Day  number  of  pass. 

sin  E 

max 

- 

Sine  of  maximum  elevation 
for  pass. 

NDOP 

- 

Number  of  doppler  counts 
used  in  calculations. 

Residual 

' 

Residual  of  difference  be¬ 
tween  measured  and  theo¬ 
retical  slant  range  differ¬ 
ences. 
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OUTPUTS  (Continued) 

Residual2 

BMS  •  \s  NDOP-1 

STEP  N  -  Test  for  e< 

onvergence. 

INPUTS:  Af 

-  Incremental  change  in  navigator's 
estimate  of  offset  frequency 
(cycles /min). 

Atp 

-  Incremental  change  in  navigator': 
latitude  (radians). 

AX 

-  Incremental  change  in  navigator': 
estimated  longitude  (radians). 

ITER 

-  Number  of  the  present  iteration. 

If  Af  > 

2.4  cycle  /min,  ( 

or  if  A <p  > 

or  if  ciX  > 

1.2  x  10  ^  radian,  * 

-7  * 

1.2  x  10 
cos  * 

and  if  ITER  <  10  then  return  to  Step  G.  Otherwise  go  to 
Step  O  to  edit  doppler  data  or  Step  P  to  compute  alerts. 


STEP  O  —  Edit  doppler  data. 

INPUTS:  -  Table  of  (KM-1)  refraction  corrected 

"vacuum"  doppler  counts  for  each 
2 -minute  interval  (cycles). 

NDOP  -  Total  number  of  nonzero  values  in 

N,  table, 
k 


♦ 

This  convergence  criterion  is  equivalent  to  0. 0004  nmi. 
Without  loss  of  significant  accuracy  this  criterion  can  be 
broadened  to  0.001  nmi  or  (in  radians)  approximately  3  x 
10"7. 
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Or  if  sin  E-_. ,  ,  ,  .  >  sin  7.  5°  and  (O.  2) 

KM  -  k+1 

sin  E.  s  sin  7.  5°  and 
k 

N  >  0  then 
k+1 

N  ^  =0  and 
k+1 

NDOP  =  NDOP  -  1. 

Otherwise  make  no  changes  in  the  table. 

OUTPUTS:  Edited  N,  table  and  updated  value  of 

NDOP.  Repeat  Steps  G  -  N. 


STEP  P  —  Compute  alerts. 

INPUTS:  Tp  -  Time  of  first  fiducial  poin-.  of  last 

pass  (minutes). 

IDAY  -  Day  number  of  last  pass. 

MDAY  -  Day  number  of  last  day  for  which 
alerts  are  to  be  calculated. 
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Satellite  data  from  last  pass  and 
navigator’s  estimated  coordinates 
during  the  period  IDAY  to  MDAY, 

Number  of  positions  to  be  calcu¬ 
lated. 


ISTP  =  MDAY-IDAY.  If  1ST P  <  0,  let  ISTP  -  ISTP  +  365. 

(P.  1) 

Let  Tn  =  Tn  -  18,  KM  =  1,  DE(K)  =  0,  DA(K)  =  0,  DN(K)  =  0, 

(P.2) 


1  =  1,  2,  3,  ---,  ISTP,  KDAY  =  I  +  IDAY. 
Execute  Steps  F,  G,  and  H. 

If  Efc  ^  0  lei  Tq  =  Tq  +  10,  and  repeat  Step  P.  3  in¬ 
creasing  Tq  by  10  each  repetition  until  Ek  >  0. 

When  Efc  >  0  let  Tq  =  TQ  -  10,  repeat  Step  P.  3,  and 
then  execute  Steo  P.  6. 


(P.3) 


(P.  4) 


(P.5) 


If  E^  £  0,  let  Tq  =  Tq  +  2,  repeat  Step  P.  3  in¬ 
creasing  Tq  by  2  each  time  until  E^  s  0,  and  (P.  6) 

then  execute  Step  P.  7. 

When  E,  at  0  let  T„  -  2  =  RISE,  E.  =  EA,  T  =  Tn  + 
k  0  k  A  0  0 

0.  25  and  repeat  Step  P.  3  increasing  Tq  by  0.  25  and  ^ 
letting  the  new  value  of  E^  =  E^  each  time  until 
E^  <  E^.  Then  E^  =  maximum  elevation  for  that 
pass. 

Write  out  day  number  of  alert  day,  RISE  time  (hours 

and  minutes),  and  maximum  elev"  xi  angle  for  the  (P.  8) 
alert  pass. 
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Let  Tq  =  Tq  +  10  then  repeat  Steps  P.  3  through  P.  8 

incrementing  I  and  K  until  I  >  ISTP  indicating  that  (P.  9) 

all  alerts  through  the  end  of  MDAY  have  been  ob¬ 
tained. 

OUTPUTS:  KDAY  -  Day  number  of  alert  day. 

RISE  -  Time  of  rise  (hours  and  min¬ 

utes)  of  alert  pass. 

-  Maximum  pass  elevation 
(degrees). 
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8.  FORTRAN  PROGRAM  FOR  THREE -VARIABLE 
NAVIGATION  SOLUTION  AND  ALERT 
CALCULATIONS 


The  steps  given  in  Section  7  for  the  three -variable 
navigation  solutions  and  for  the  alert  computations  have 
been  programmed  in  FORTRAN.  A  listing  of  the  program 
routines  is  at  the  end  of  this  Section.  Table  7  shows  the 
interface  requirements  between  the  real-time  data  process¬ 
ing  program  and  the  navigation  fix  program  and  also  gives 
the  FORTRAN  names  of  the  required  parameters,  all  of 
which  have  been  discussed  in  previous  sections.  The  sub¬ 
routines  of  the  navigation  fix  program  perform  the  opera¬ 
tions  described  in  the  next  section.  Flow  charts  for  the 
program  are  in  Appendix  A. 


SUBROUTINES 

MAIN 


This  subroutine  is  thf  c  <  s  °r  routine  serving  as  a 
driver  for  the  other  program  ratines. 

INPUT 


Subroutine  INPUT  allows  the  program  to  be  used  in 
nonreal-time  navigation  for  study,  diagnostic,  or  debug 
purposes.  It  is  not  used  in  real-time  navigation. 

CVTM 


Subroutine  CVTM  (Fig.  A -19)  scales  the  constant 
orbit  parameters  from  their  input  format  to  the  format 
used  in  the  program,  corrects  the  doppler  data  for  iono¬ 
spheric  refraction,  formats  navigator  motion  for  further 
computation,  computes  the  time  of  the  first  fiducial  mark, 
decodes  the  out-of-plane  (cross  plane)  orbit  correction 
words,  and  interpolates  for  the  missing  out-of-plane  cor¬ 
rections  (Steps  A  -  D  of  Section  7). 
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Table  7 

Interface  Requirements  Between  Real-Time 
Data  Processing  Program  and  Navigation  Fix  Program 


Pr*»gi  am 

1\. .  aintier 
Name 

IJestcriptlon 

Input 

Format 

Units 

Computational 

Units 

No 

of 

Comments  Par  Source 

M  .A  1 

Estimated  latitude 

FP 

•tin  *I04 

Radians 

1  Navigator 

1.1. ON 

Estimated  Longitude 

FP 

Min  >!04 

Radians 

1  Navigator 

.;mhi 

Antenna  Height 

FP 

Meters 

Metvt  s 

1  Navigator 

IMIM 

Estimated  I«ock  Time 

FP 

Minutes 

Minutes 

1  Navigator 

iu:ad 

Ship's  Heading 

FP 

Minutes 

Radians 

1  Navigator 

t<  \  i  i: 

Ship's  Speed 

FP 

Knots  *10 

Radians /Min  *2 

1  Navigator 

II » A  Y 

»)ay  of  Pass 

Iniegern 

Da*  h 

Days 

15  bit  dressed  Rt 

1  Navigator 

Ml  \V 

Alert  Knd  Day 

Integers 

D  ys 

Days 

15  bit  dressed  Kt 

1  Navigator 

noHK) 

400 -MHz  Doppler 

FP 

Cycle* 

<  *ycies 

=0  Invalid 

8  Satellite  .Signal 

H<  HK) 

Refraction  tV". .  lion 

FP 

v‘ycles 

Cycles 

=0  Invalid 

8  Satellite  Signal 

IH  00 

Eccentric  Anonu.-  > 
Correction 

FP 

Degrees 

*104 

iladiars 

9  Satellite  Message 

DA(K) 

Senuniajor  Axis 
Correction 

CP 

Meters/ 10 

Meters 

9  Satellite  Message 

DN(K) 

Cross  Plano  'term 
(transmitted  as 
values  at  4-mtn 

FP 

.Meters 

13  or  100 

Meters 

XS3  MSI)  11  Satellite  Message 

Alternate  LSD 

intervals  an'*  inter¬ 
polated  to  yield 
values  at  2 -min 
intervals) 


DTK 

Lock  1  ime  Since 

Half  Hour 

FP 

Minutes/2 

Minufen 

1 

Satellite  Message 

l  P 

‘1  lme  of  Perigee 

FP 

Min/* 10s 

Minutes 

1 

Satellite  Message 

\NI« 

Mean  Motion 

FP 

Deg  /Min 
•108-3 

Rsd/Mn 

1 

Satellite  Message 

SOME 

Argument  of  Perigee 

FP 

Degrees 

•103 

Rar*i  ns 

1 

Satellite  Message 

sown 

Precession  Rate  of 
Perigee 

FP 

Deg /Min 
*10” 

Rad /.Min 

1 

Satellite  Message 

h 

Fccentriclly 

FP 

Deg  /Min 
•  107 

Dimenelv»r./0?a 

I 

Satellite  Message 

AO 

Mean  Semimajor 

Axis 

FP 

Meters 

Meters 

1 

Satellite  Message 

COME 

Rig+it  Ascension  of 
Ascending  Node 

FP 

Degrees 
•  10s 

Radians 

1 

Satellite  Mresage 

COMD 

Precession  Rate  of 
Node 

FP 

l*e«/Min 
•  108 

Rad  /Min 

1 

Satellite  Mcseage 

Cl 

Cosine  Inclination 

FP 

Deg/Min 
•  107 

Dimensionless 

I 

Satellite  Mess* 

\I.MT 

Greenwich  Long,  at 

TP 

FP 

Degrees 

•105 

(tadians 

1 

Satellite  Message 

SI 

sine  Inclination 

FP 

Degrees 

*107 

Dimensionless 

1 

Satellite  Message 

;>!  AKK) 

Relative  I-at. 

Motion 

Radians 

Calculated  froca 
Head 

9 

Navigator 

DLON(K) 

Relative  Long.  Motion 

Radians 

9 

Navigator 

STIM 

Correct  Msg.  Lock 

Minutes 

1 

Sitelhte  Messa.* 

Time 
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SATC  AND  SXYZ 

Subroutine  SATC  (Fig.  A -20)  computes  the  time 
since  perigee  (Step  E  of  Section  7)  and  then  calls  subrou¬ 
tine  SXYZ  to  compute  the  satellite  coordinates  for  one  2- 
minule  point.  Return  is  made  to  subroutine  SATC  to  incre¬ 
ment  time,  and  subroutine  SXYZ  is  called  again  to  compute 
the  satellite  coordinates  for  the  next  2 -minute  point.  The 
net  effect  of  this  sequence  is  the  execution  of  Step  F  of 
Section  7. 

SOLVE  AND  SLANT 


The  programming  approach  adopted  in  subroutines 
SOLVE  and  SLANT  (Figs.  A-21  and  A-22)  is  to  set  up  the 
elements  of  the  final  A  matrix  and  then  incrementally 
modify  each  element  with  its  C  matrix  counterpart  by 
means  of  an  iterative  process.  The  net  effect  of  the  se¬ 
quence  is  the  execution  of  Steps  G  -  L  and  the  determina¬ 
tion  of  the  sum  of  the  squares  of  the  residual  differences 
between  the  measured  and  theoretical  slant  ranges,  as 
follows: 

Subroutine  SOLVE  begins  by  setting  up  the  elements 
of  the  A  matrix.  Subroutine  SLANT  is  called  and  the 
navigator's  coordinates  and  partial  derivatives  are  calcu¬ 
lated  for  the  first  time  point  (Step  G).  Next,  the  theoreti¬ 
cal  slant  range  for  the  first  time  point  is  calculated,  plus 
the  partial  derivatives  and  the  elevation  angle  to  the  satel¬ 
lite  (Step  H).  Return  is  then  made  to  subroutine  SOLVE 
to  compute  the  constant  function  of  satellite  frequency 
vacuum  wavelength.  The  interval  count  is  incremented  and 
subroutine  SLANT  is  called  again  to  compute  the  next 
theoretical  slant  range,  partial  derivatives,  and  elevation 


*  - - — — — - 

Inasmuch  as  Fortran  arrays  may  not  be  indexed  with  a 
subzero  term,  the  term  for  the  residual,  which  is  ex¬ 
pressed  as  CQ  in  Section  7,  is  changed  to  C{4)  in  the 
Fortran  listing  of  Section  8. 
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angle.  Return  is  made  to  subroutine  SOLVE  and  the  differ¬ 
ences  in  successive  theoretical  slant  ranges  and  partial 
derivatives  of  the  slant  ranges  are  calculated.  Next,  if  the 
doppler  count  is  positive,  the  refraction  corrected  mea¬ 
sured  slant  range  differences  are  calculated  (Step  I).  The 
residual  difference  between  the  measured  and  theoretical 
slant  ranges  is  determined.  The  C  matrix  is  formed 
(Step  J),  the  A  matrix  is  formed  (Step  K),  the  matrix  is 
solved  for  the  differences  in  frequency,  offset,  latitude, 
and  longitude  (Step  L),  and  the  navigator's  estimates  of 
frequency  offset  and  fix  position  are  updated.  The  con¬ 
vergence  test  is  made  (Step  N).  Tf  no  convergence  is 
found,  return  is  made  to  Step  G  arid  the  iterative  loop  re¬ 
peated  until  convergence  is  achieved  or  until  10  iteration? 
have  been  made.  (If  convergence  is  not  achieved  after  10 
iterations,  further  attempts  at  solution  are  abandoned, 
and  the  program  terminates).  If  convergence  is  achieved, 
subroutine  EDIT  is  called. 

EDIT 

Subroutine  EDIT  (Fig.  A -22)  examines  the  doppler 
data  and  eliminates  data  points  for  elevation  angles  of 
7.  5°  or  below  until  at  least  four  doppler  points  remain 
(Step  O).  Subroutines  SOLVE  and  SLANT  are  then  re¬ 
peated  using  the  edited  doppler  data. 

TYPE,  UCON,  and  ARCS 

Subroutine  TYPE  (Fig.  A-23)  is  called  to  write  out 
the  results  (Step  M).  The  difference  in  the  fix  frequency 
and  the  estimated  frequency  is  calculated.  The  maximum 
pass  elevation  is  calculated  and  is  converted  to  degr  ees 
in  subroutine  ARCS  (Fig.  A-24).  Fix  time  is  calculated 
as  the  time  of  the  first  fiducial  point  plus  4  minutes  and 
is  converted  to  nours  and  minutes  in  subroutine  UCON 
(Fig.  A-24).  The  number  of  iterations  and  the  number  of 
doppler  counts  used  in  the  solution  are  listed.  The  differ¬ 
ences  in  the  estimated  and  fix  latitude  and  longitude  are 
calculated. 
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ALERT  and  AVIS* 

If  the  navigator  has  elected  to  calculate  alerts, 
subroutine  ALERT  (Fig.  A -25)  is  used.  Subroutine 
ALERT,  which  calls  subroutine  AVIS  (Fig.  A-25),  calcu¬ 
lates  the  times  of  future  satellite  passes  by  computing  the 
elevation  angle  at  future  times.  A  positive  elevation  angle 
is  construed  as  an  indication  that  a  pass  will  be  underway 
at  that  time  (Step  P). 

PROGRAM  LISTING 

A  listing  of  the  program  follows. 


Subroutines  ALERT  and  AVIS  are  not  used  with  the 
Fortran  program  listed  on  the  following  pages  and  cannot 
be  called  in  this  program;  they  are  included  for  illus¬ 
tration. 


I 
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LfVEL  18  1  SEPI  69 


uS/560  f^UA*4  H 


OAT  £  70.196/18.53.44 


C3«P1 

Lt«  0*110*5  -  N'*E"  MAlH,0PT-02,tl.*£CNT*5tt.S!ZE*0CU0A* 

SJ  IRCE  .  (oiOlC*  *UL!  ST*  1  J0£C4*L  JAO.  M4P(X0l~0I  1*1 0*N0XREf 

C 

EXEC 

c 

EXtC 

IS*  coo? 

1  FORMAT  «1H  »(  if  18.1//)) 

EXEC 

C 

EXEC 

ISN  OJOl 

UUUFLE  PRECISION  H«.*Av£,CvLG.Er<O.JHGE,X3$U,ZOSO 

EXEC 

IS*.  0CO4 

OCublf  PRECISION  G*£.T»0,lHR£*f  lVt.AfE.TEN*0&0tHUNl).C480,S7PS 

EXEC 

ISN  JC05 

DOUBLE  PRECISION  TJPl,OTiUtOIJN,TNl.*M4,TM5*INe.CMTR*CxRN 

ExEC 

1$*,  0u0e> 

ODifeU  PRECISION  2t»U.F0jR,lN7,C2N.C2N,R£FC 

EXEC 

ISN  COOT 

Of utLE  PRECISION  OJP.Rfcf *0E • OA ,ON*ELAT . ELON.GfcOH. ET IN. rtEAO* AATfc 

EXEC 

IS*  0008 

court  £  PRECISION  OlA,TP,xsOI,SJMfc«SUMO,£,AG#COHE,COAO,CNXLHG 

EXEC 

ISN  0009 

OJUfU  PRECISION  0OK1.0UH2.SI»0fSf,0UH3,DUH4.0UM5 

EXEC 

ISN  C010 

DOUBLE  PRECISION  DLA», CRON.  SHXE.SELV, FLAT, fLCN.FFRQ.RSQ.VN 

EXEC 

ISN  GC11 

OCURLE  PRECISION  T.TcMP.A.OJN 

EXEC 

c 

EXEC 

c- 

DIMENSION 

EXEC 

ISN  0012 

DIMENSION  .*UPi81*R£f  C8)*0£(9)*OA(9JtO*(  1 1 ) *OLATt 9) ,3L0Nt 9) 

txfcC 

i  S'*  oon 

DIMENSION  A I „,4l tDJMC 10) 

LXEC 

c 

EXEC 

c- 

COMMON 

EXEC 

I  S*  0014 

COMMON  TP,XNDT,SDME,SOMD,£,AO.COME.COMO,CI,XtMG 

EXEC 

ISM  0015 

COMMON  0UM1.DUM2.S!  ,0f ST,OUM3*DUH4,OUMS,OOP 

EXEC 

TS*  0016 

COMMON  REF 

EXEC 

.S *  0017 

COMMON  DE  »OA,ON.OTk,£LAT . ELON. CEUH. h£ AO. RAT £  « I OAY.MOAY  *£T  IN 

EXEC 

in  0018 

COMMON  IXAT.OLUN.SHXt  .SEC V, FEAT. PLON.f  FRQ, RSQ.VN 

txEC 

ISN  0019 

COMMON  l.J.K*L,M,N,NDCP.IT£R 

EXEC 

ISN  U'20 

COMMON  T,T£MP,A,DUM 

tXEC 

c 

EXEC 

IS*  0021 

COMMON  /COMC/NULL • I ONE. lTnO. I FUk, 115. I 30. 1 365* lM.KM.KF 

EXEC 

IS*  0022 

CUMM3N  /COMC/TAh.hAvE ,C VCG • EFkQ, OMGE • X3SQ. ZUSQ . ZERO 

EXEC 

ISN  CO? 3 

COMMON  /COMC/ONE, r-0. THRE.F  OUR*  FI Vfc .ATE*  TEN.060.HUND 

EXEC 

IS*  0074 

COMMON  /C0MC/C480*S7P5.»0PI .OTAA.OTOM 

EXEC 

IS*  0025 

COMMON  /COMC/TM1 * IM4*  TM5. TM7»TM8»CMTR»  CXRM, C2K.C2M, REFC 

EXEC 

c 

EXEC 

c- 

— SYSTEM  CONSTANTS 

EXtC 

c 

TAk.?.0*0 

EXEC 

c 

mAVE-7.49481250-1 

EXEC 

c 

-ETERS  VACUUM  NAVE  LENGTH 

EXEC 

c 

CVCOl.ZD-T 

EXEC 

c 

RROIRHS  CO.»t«it>Ct  CRITERIA  •  .0004  !TI 

EXEC 

c 

TFROl. 920*6 

EXEC 

c 

NM-9 

EXEC 

c 

IM«8 

EXEC 

c 

RF*3 

EXEC 

C— EARTH  CONSTANTS 

EXEC 

c 

OMG£.«. 375269510-3 

EXEC 

c 

RAC'MIN  EARTHS  ROTATION  RATE 

EXEC 

r 

XO  ~€.378144D+6 

EXEC 

C 

METERS  SEMI  MAJOR  AXIS 

EXEC 

c 

EFLT-  2. 9823 D*  2 

EXEC 

c 

FLATTENING  COEFFICIENT 

EXEC 

c 

aCSC*XO*XO 

EXEC 

c 

ON£*1.P*0 

EXEC 

c 

ZO*XO*f ONt-ONE /eflti 

EXEC 

PACE  002 


C 

ZOSQ*ZO*ZO 

EXEC 

C— 

-UNIT  CONVERSIONS  ANO  MISCELLANEOUS 

EXEC 

C 

NULL*0 

EXEC 

c 

! 0X8*1 

ExeC 

c 

1TnO*2 

EXEC 

c 

IFCM4 

EXtC 

c 

EXEC 

1 SN  0026 

REv  1*0  e 

EXEC 

IS*  0027 

2  CALL  INPUT 

EXEC 

!S\  0028 

CALL  CvTM 

EXEF 

ISN  C029 

CALL  SATC 

tXEC 

IS*  C030 

CALL  SOLVE 

EXEC 

IS*  0031 

IFIX-ITE* 

EXEC 

ISN  003? 

call  eoit 

ESFC 

ISN  0033 

CALL  SOLVE 

EXEC 

ISN  )034 

ITER-IFIX 

EXEC 

ISN  0035 

CALL  TYPE 

tXEC 

ISN  0036 

GC  TO  2 

EXEC 

ISN  0037 

E*D 

EXEC 

4  • 


1  A 


J 

& 


T 


I 

I 


1 


I 

I 

I 

T 


I 


I 

T 

I 

T 


kS  fr/  4v4UUA}jvaM»U*5ttte*4ttiM  Jtftf  lAfcfilV  +•*  L>«* 


m  -WM  oouio  «,ts  p«c  001 


fA(,  TYPE 

c  *•<> 


Aft 

no 

I  A* 

T*5 

£*Ph 

Cvcs 
Pun 
cuh? 
foil  Sr 
f  T  I H 
ftDY 
WU*D 
JCSE 

-o*r 

a-Gf 

SftV 

5?*>5 

it*E  sf 

xasa 

SOLVE  <F 


ON 

SI 

:^k 

3UM 

DSC 

?ev 

lM, 
CMJR 
CvlM  $f 
OfCH 
0UM3 
EfftO 
ffkU 
FOUR 
10AY 
IT£ft  Sf 
fOOP 
RATE 
s*txe 

T£HP 
«4I ft 

ziko 

i bzou  r 


c  !•* 

C  K**) 
C  R*b 
C  P»d 

c  K*e 
c  K»< 
C  ft*a 
C  ft*d 
t  **<, 
C  k*a 

*F  K*4 


Z  ft*8 
c  *•& 
L  k»a 
C  4*0 
C  R«o 
*f  ft*4 


£  aoo. 
N.*c. 
V.«. 
K,«, 
V.  I. 
V.ft. 

>M.A. 

S.ft. 
•"*.  R  a 
N.ft. 
V.«. 
000003 
S.ft. 
S.ft. 
V.R. 
V.I. 
S.ft. 
A*  A. 
000314 
N.ft. 

s-a. 

a. 

S.R. 

S.iU 

000000 


Ci 

IN 

IP 

C?N 

060 

*£f 

f 

Tm8 

COM3 
C4d0 
OUA 
0JH4 
(Uf 
flit 
OtOH 
IF'*  SF 

IIW. 

NJll 

*CfC 

SjND 

THftE 

*l«C 

/□SO 


IVPt 

ADO. 

1*4 

N.ft. 

*♦4 

\.  K. 

N.ft. 

I  *4 

S.ft. 

M#0 

N.ft. 

*•8 

S.ft. 

ft*Q 

H.K. 

H»b 

S.ft. 

A*8 

S.A. 

ft*6 

N.ft. 

*•6 

S.ft. 

R«fa 

v.«. 

H*e 

S.ft. 

A»8 

S.k. 

ft«6 

S.ft. 

ft*  b 

V-  ft. 

ft«e 

S.ft. 

1*4 

oaooec 

1*4 

V.ft. 

I  *4 

S.ft. 

ft*6 

S.ft. 

ft«0 

S.  ft. 

ft*o 

S.ft. 

«#6 

S.ft. 

S.ft. 

OOP 

IIS 

«SQ 

ina 

TnO 

COME 

ot*r 

OjMl 
Du*  5 
elds 

FLAI 
m£AD 
if  0* 
i  is: 
of$r 
SAIC  sf 
SOME 
TOPI 
ANDT 

INPUT  Sf 


Type 

ADO. 

I  *4 

N.ft. 

1*4 

S.ft. 

ft*6 

H. ft. 

1*4 

N.ft. 

ft«tf 

S.  ft. 

ft*8 

N.ft. 

{•4 

N.ft. 

ft*S 

N.ft. 

IPS  oocooo 


toino*  i  HfQp hat  i  os 


«"£  of  com**oh  eintu 


►«.  “»«€  Trp£ 

IP  «•» 

£  ft*8 

Cl  ft** 

SI  »*8 

DU"%  ‘.#3 

oa  #se 

Flos  «#ft 

IJAr 

HCS  0*8 

flOS  R«f 

I  >4 


Sl«  of  6LCCA 


PEL.  AD  DR. 

f>». 

A.  ft. 
N.ft. 
N.P. 
N.ft. 
S.P. 
N.P. 
A.I. 
V.*.. 
*.*. 
N.P. 

S.ft  . 
N.P. 


VAX.  «AH£ 

*voi 

AO 
XH5 
Of  SI 
OOP 
OS 
OEOrt 
NO  Air 
$NX£ 

ffftO 

J 

U 

Tf  HP 


Or  hexadecimal  Brits 


r*P£  «U.  Ajjft. 


VAft.  \AMf 
SOh| 
COME 
OUHJ 
DJHi 
ftff 
DTK 
HEAD 
ETJM 
SELV 
RSO 


«.£  OF  CO.**  block  .  ta-c*  stn  *  U0Ctk 


lri>£  *£t. 

*•£  s 

«•*  6 

«•*  6. 

*•*  H, 

«*«  6. 

6, 

*•4  S. 

*•4  H. 

*•«  M. 

P#«  6. 

*•*  *. 

I**  N. 

ft*e  .v. 


L.  *UOt- 

VAft.  6AH£ 

Type 

S.  ft  . 

SOHO 

A*ft 

s.ft. 

COHD 

ft*e 

S.  ft. 

0UH2 

ft*8 

N.ft. 

Dim* 

K*e 

S.ft. 

OE 

ft«6 

N.  ft. 

ELAT 

ft«0 

S.ft. 

Rate 

P*B 

S-ft. 

Olat 

«*b 

S.ft. 

flat 

K»6 

2**  * 

VH 

*•6 

M.K. 

L 

1*4 

S.ft. 

ITER 

1*4 

S.ft. 

OUH 

«*6 

CVCC 

ft*$ 

N.ft. 

10  S3 

ft«ft 

S.  ft. 

THftE 

ft*ft 

S.ft. 

TEN 

ft*  . 

s.ft. 

SIPS 

N.ft. 

IMT 

N.ft. 

TH6 

M# 

S.ft. 

C?H 

N.ft. 

TrPE 

!*4 

1*4 

ftCi.  A0O«. 
s*». 

N.ft. 

VAft.  MAH* 

ION£ 

IVP£ 

1*4 

ftfcL.  AOOft- 
S.  ft. 

!*4 

N.ft. 

133 

l«4 

S.K. 

Af 

1*4 

S.ft. 

HEXADECTMAl  BYTES 

VAR’.?‘3f  1VPt  *ct-  4««- 

f!;;  >•*  N.p. 

Auft. 

5*.  ft. 


VAIU.2f?6  TTn  a  PDA, 

IFOX  1*4  4.A. 

*?  !•<  N.«. 

"V£  fi.ft  y.«. 


LABEL  ADD*  LABEL  AODR  LABEL  ADO*  lAotL  AODR  PAGE  00'. 

?  OOOOCB 

•OPTIONS  IN  EFFECT*  NAME ■  MAlN,OPI»02.LlNECNT»Se,SUt»03G0k, 

•OPTIONS  IN  EFFECT*  SOURCE, EBCDIC, NOL1ST,N30ECK,LOAU,NAP,NOE31T,IO,NOXREF 

•  STATISTICS^  SO'JRCE  STATEMENTS  -  36  .PROGRAM  SUE  »  320 

•STATISTICS*  NO  DIAGNOSTICS  GENERATEO 


ENO  OF  COMPILATION 


61 K  BYTES  UF  CORE  NOT  USED 


I 


I 

I 

I 

1 


I 

/ 

MAIN  / 

SIZE  OF 

PROGRAM  U00U08  HEXADECIMAL  BYTES  PAGE 

003 

1 

NAME 

tag 

TVPF 

ADO. 

NAME  TAG  TYPE 

AUO. 

NAME 

TAG 

TYPt  ADD. 

NAME 

TAG 

TYPE 

AOD. 

E 

IH 

C 

1*4 

N.R. 

KF 

C  i*4 

N.R. 

KM 

C 

1*4  Y.R. 

ATE 

C 

R*t» 

<4.R. 

■s 

C2K 

c 

R*8 

N.R. 

C2M 

C  R*8 

N.R. 

060 

C 

R*0  N.R. 

US 

C 

1*4 

N.R. 

■-'5 

l  SO 

c 

1*4 

N.R. 

ONE 

c  r.*8 

N.R  . 

TAM 

c 

R*b  N.K. 

TEN 

C 

R*fi 

N.K. 

TH1 

c 

R*8 

N.R. 

TM4 

C  R*« 

N.R. 

TN5 

C 

K*d  N.R. 

TM7 

C 

M*8 

r..R. 

-a 

TM8 

c 

P*8 

N.R. 

TkO 

C  R*8 

N.R. 

CKRM 

c 

R*8  N.R. 

C*fR 

C 

R*8 

N.R. 

w- 

CVCC 

c 

R*8 

N<  R. 

C480 

C  R*8 

N.R. 

DTOM 

c 

R*8  N.R. 

OTRA 

C 

K*8 

N.  R. 

t 

efrq 

c 

R*8 

N.R. 

FIVE 

C  R*8 

N.  R. 

FOUR 

c 

K*B  N.R. 

HU  NO 

C 

R*8 

N.  R. 

R 

IF  OR 

r 

1*4 

N.R. 

JUNE 

C  1*4 

N.R. 

ITMQ 

l 

1*4  N.R. 

1365 

C 

1*4 

N.R. 

.3 

NULL 

C 

1*4 

N.R. 

URGE 

C  R*8 

N.R. 

REFC 

c 

R*8  N.R. 

S7P5 

C 

R*Q 

N.R. 

| 

TMPE 

C 

R*0 

N«k» 

TOPI 

C  R*8 

N.R. 

NAVE 

c 

R*8  N.R. 

XOSU 

C 

R*8 

N.R. 

! 

ZERO 

c 

R*8 

N.R. 

ZUSO 

C  R*8 

N.R. 

a 

•*•••  COMMON 

1 

NAME  OF  COMMON 

BLOCK  •  COMC*  SIZE 

UF  CLOCK 

o 

c* 

c 

0* 

hexadecimal 

BYTES 

s 

VAR. 

NAME 

TYPE 

REL.  ADOR. 

VAR.  NAME 

TYPE  REL.  AOOR. 

VAR.  NAME 

TYPE 

K£L.  ADOR. 

VAR.  NAHL 

TYPE  REL-  AOOR. 

MULL 

1*4 

N.R. 

I  ONE 

1*4 

N.R. 

JTWO 

1*4 

N.R. 

IFOR 

1*4 

N.R. 

'2 

11? 

1*4 

N.R. 

130 

1*4 

N.K. 

1363 

1*4 

N.  R. 

IM 

1*4 

N.R. 

1 

MM 

1*4 

N.R. 

KF 

1*4 

N.R. 

TAN 

R*8 

N.R. 

HAVE 

R*e 

N.  R. 

5 

CVCG 

R*8 

N.R. 

EFRQ 

R*8 

N.R. 

OMGE 

R*8 

N.  R. 

XOSU 

R*8 

N.K. 

ZCSQ 

R*8 

N.R- 

ZERO 

R*8 

N.R. 

ONE 

R*8 

N.R. 

Txfc 

R*e 

N.R. 

TMRE 

R*0 

N.R- 

FOUR 

R*8 

N.R. 

FIVE 

R*8 

N.R. 

ATE 

R*e 

N.R. 

TEN 

R*a 

N.R. 

060 

R*8 

N.R. 

HU  NO 

R*8 

N.R. 

C460 

R*e 

N.R. 

!• 

S7P3 

R*8 

N-R. 

TOPI 

R*8 

N.R. 

OTRA 

R*8 

N.R. 

DTOM 

R*8 

N.R. 

TM1 

R*8 

N.R. 

TH4 

R*8 

N.T.. 

TM5 

R*8 

N.R. 

TM7 

R*6 

N.R. 

TM8 

A*8 

N.R. 

C*r* 

R*a 

N.R. 

CKRM 

R*8 

N.R. 

C2K 

P*8 

N.R. 

C2M 

R*8 

N.K. 

REFC 

R*e 

N.K. 

5 

C  •  OHIONS  IN 

EFFECT* 

NAME*  MAIN. 

,OPT*02,L1NECNT-S8.SIZE«=OOOOK 

• 

•OPTIONS  IN  EFFECT* 


SOURCE  »  EBCDIC*  NO*.  1ST*  MODEC<*LOAO*MAP*NOEO  IT* ID*NOX*EF 


•STATISTICS* 


SOURCE  STATEMENTS  « 


24  .PROGRAM  SIZE 


•  STATISTICS*  NO  DIAGNOSTICS  GENERATEO 
••••••  END  OF  COMPILATION  •••••• 


61*  BYTES  OF  CURE  NUT  USED 


'CttMii. 


555^ 


•Jip1  RSflC^" 


\ 

K 

* 

f. 


LEVEL  ie  1  SEPT  69  I  0S/360  FORTRAN  H  0A)£  TO.  1 96/18.  53.55 

COMPILER  CP*IC»‘S  -  NAME-  MAlN,0PT-02,tl r»ECNT -Sb.SUE-uOOOK, 

SOJRCf  , EBCDIC.  KOL  1ST.  VJ0tCk#l0A3,  HAP, ^UEDIT,!3,NtJXREE 


ISN 

0002 

Subroutine  input 

INPUT 

C 

INPUT 

C 

INPUT 

ISN 

0003 

OCUBlt  PRECISION  TAfc, fc.Av£,CvC J« EFK0.07CC ,X'iSC,  20S3 

INPUT 

ISfi 

0C06 

DOUBLE  PPECISIJN  ONE , T»C, I«P£ ,F 1 Vfc , *T£ , TEN, 060, HJND, CARO. S7P5 

INPUT 

ISN* 

0005 

OUUHLE  PRfCISlUN  TOPI,  OTRA,  OT  JM,  IM*,,  TR6,  TM5,  TMB.Cwf  «. '  «P  - 

INPUT 

ISN 

000#- 

0CU3LE  PR  C1SI0N  ZERO. FOUR, TH7.C2X,C2*',PEEC 

INPUT 

ISN 

0037 

00UM.E  P*Ct JSlUN  03P.REF,J£  ,0A,0f.,ElAT.ElUN. CEUH,,.r  IM,h_  AD.RATt 

INPUT 

ISN 

000* 

Orut-Lf  PRtCISlON  OT«,TP,XNUT,S0Ht,SUNjf  £,  A0,C0“E.C0WD.C I , *1  «' 

INPUT 

ISN 

0009 

DOUBLE  PRECISION  LJH1,0U*2,SI  •OFST,OUM3kDJ‘‘«.,0*JH5 

input 

ISN 

on  m 

OCUbl  E  PRECISION  DL  AT, ONUS,  SMAE  oc  L  V.f  LA  T  .FlUN.f  F«£  ,P  SO.  VN 

INPUT 

ISN 

0011 

DOUBLE  PRECISION  I.TEMP.A 

INPUT 

ISP 

0012 

DOUBLE  PRECISION  0U"9 

INPUI 

C 

INPUT 

c- 

—  DIMENSIONS 

IN’UT 

ISN 

3013 

DIMfNSKA  00PI8J,R£F|  81  ,0tI9)  ,0AI  91  ,3N<  1 1)  «DLAT  ( 9)  , DIUNI  9) 

INPUT 

ISN 

001 A 

DI  MENS  1  C-N  A  (  3,6  1 

INPUT 

ISN 

0015 

DIMENSION  D0M9C17) 

INPUT 

c 

|NP„T 

c- 

—COMMON 

INPUT 

ISM 

0016 

COMMON  TP,xNDT,6uM£, SCAD , E  «  AU«  COME , CUHD, C I  *  X  t  *C 

INPUT 

ISN 

0017 

COMMON  0UM1 , OUM?, $ 1 ,0f S T,DUm3,DUM6,0UM5.D0P 

INPUT 

ISN 

0018 

COMMON  ref 

INPUT 

ISN 

0019 

COMMON  0E,DA,0.N,DT6,ELAT,EL0.N,C£UH,H£A3,RAT£,iCAV,NUAY,£T  !H 

INPUT 

ISN 

0320 

CO-MCN  DLAT,CluN,SHXE,SELV,ElAT,FLJ'»,ff33,ASf,VN 

INPUT 

ISN 

0021 

COMMON  I  ,J,K,L,M,N,M  -.P.IUK 

INPUT 

ISN 

C022 

COMMON  T, TfMP, A 

INPUT 

ISN 

0023 

COMMON  /UIMC/NULL, IONE, i  *0, I  FOR, 115, 130,  I 365, !M,X“,KF 

INPUT 

ISN 

0026 

COMMON  /COmC/TAh,mAvE  .CVCO.kf RU.UKCE ,xOSO, 20SC, ZERO 

INPUT 

ISN 

0025 

COMMON  /C CMC/^NC, 7WC,TMKt, FOUR, El Vc, ATE, TEN, D60, MONO 

INPUT 

ISN 

0026 

COMMON  /C0MC/C680.S7P5, TOPI, OTRA, DTLlH 

INPUT 

ISN 

0027 

COMMON  /C0MC/TMl.TH6,TM5,TM7,TM8,CHTR,C<PHtC2RtC2M,REFC 

INPUT 

c 

»nput 

c 

INPUT 

ISN 

C029 

EOUIVALENCE  «TP,DUM9|l»| 

INPUT 

c 

INPUT 

ISN 

0029 

12  FORMAT (A6, 21 13) ,161 

INPUT 

ISN 

0030 

11  FGPHAU5A8) 

INPUT 

ISN 

0031 

REA0I5.121  1STA.ISAT,  I  DAY,  HIM 

INPUT 

ISN 

0032 

IMISAT)  30,31,31 

INPUT 

ISN 

0033 

30  NRIT6(8,12I  1ST*, IS AT , IDAY, ITI M 

INPUT 

ISN 

0056 

REMIND  8 

INPUT 

ISN 

0035 

CALL  EXIT 

INPUT 

ISN 

0036 

31  READ(3,1U  0UM1,DUM2,0UM3,DUM6,DUM5 

INPUT 

ISN 

0037 

WRITE <6, 12)  ISTA,ISAT,IOAY,lTIrt 

INPUT 

ISN 

0038 

MPITEIS.II)  DUM1,DOM2,OOM3,DUM6,DUM5 

INPUT 

ISN 

0039 

READC5, 10 )  TP,XNOT, SOME, SOMD,E, AO. COME, COMO 

INPUT 

l  ,CI.XLMC,Cum.DJM2,SI,£»FST,OJM3,OUM6 

INPUT 

2  .PUNS  ,(D£|K),A»l,9),lDAlK) , 

iNruI 

3  nNlK»,X-l.lll,OTN,CEOH.tLAT,£LJN, 

INPUT 

6  hEAD,PATE.IOOPOU  ,K«1 ,8J,<REF<*| ,K»l,*:t 

INPUT 

5  ET1M 

INPUT 

ISN 

o 

o 

o 

10  FORMAT  I1X.09.0) 

INPUT 

PACE  00/ 


ISN 

0061 

0UM1-ELAT-TM6 

INPUT 

ISN 

0062 

I-0UMI/060 

INPUT 

ISN 

0063 

OUMl-CAftSI jUMl-IOfclfcl FLOAT!  I J 1*060) ) 

INPUT 

ISN 

0066 

MRITEI0,:3»  I.0UM1 

INPUT 

ISN 

0065 

13 

FORMAT! I6,fe. 6) 

INPUT 

!SN 

0066 

0UKl»£lCN*TM6 

INPUT 

ISN 

0C67 

I-fVJNl/060 

INPUT 

ISN 

0068 

0UM1-0A8SC DUMl-IDBLE (FLOAT! I ) 1*060) 1 

INPUT 

ISN 

0069 

hRITE  (0*131  1.1MM1 

INPUT 

ISN 

0050 

HR! Tf (8,16)  CCOH 

INPUT 

ISN 

C051 

16 

FORMAT(F9.0) 

INPUT 

ISN 

0052 

116 

FORMAT (F 10.0, f 5.0, F5.0, F3.C,F9.0,f6.0) 

INPUT 

ISN 

C053 

15 

F  :RMAT(F10.0,F5.0,F5*0,f3.0J 

INPUT 

ISN 

0056 

16 

FORM (T (f 10-0, F  3.0 J 

INPUT 

ISN 

0055 

17 

FORMAT! F3.0I 

INPoT 

ISN 

0056 

222 

FORMAT! F 10.  J*F9.  0.F6.0) 

INPUT 

ISN 

0057 

DO  26  K-1,12 

INPUT 

ISN 

0058 

IF(K-I)  21,21rl8 

INPUT 

ISN 

0C59 

18 

IF  C  r.-8)  22.22,19 

INPUT 

ISN 

0060 

19 

IFlK-10)  23.23,20 

INPUT 

ISN 

0061 

20 

IFIK-11)  26,26,26 

INPUT 

ISN 

0062 

21 

WRITE (8, 222#  DUM9(K).03P!K),Rfcf IK) 

INPU* 

ISN 

0063 

GO  TO  26 

INPUT 

ISN 

0066 

22 

l-K-1 

INPUT 

ISN 

0065 

WRITE (0,116)  DUN?lKI,OE(I),OA( X),jM(I),30PfK),REF(K) 

INPUT 

ISN 

0065 

CO  TO  26 

INPUT 

ISN 

0067 

23 

I-K-l 

INPUT 

ISN 

0068 

WRITE (6,15)  OuM9;k»,OE( t),OA(l).ON(I) 

INPUT 

ISN 

0069 

CO  TO  26 

INPUT 

ISN 

0C70 

26 

I-K-l 

INPUT 

ISN 

0071 

WRITE (8.16)  SI.DNII) 

INPUT 

ISN 

0072 

CO  TO  26 

input 

ISN 

C073 

25 

I-K-l 

INPUT 

ISN 

0076 

WRITE  (8,17)  DNUI 

INPUT 

ISN 

0075 

26 

CONTINUE 

INPUT 

ISN 

0076 

I-MEA0/U60 

INPUT 

ISN 

0077 

«RIT£(8,27)  I ,RATfc 

INPUT 

ISN 

0078 

27 

FORMAT! 16,65*1 ) 

INPUT 

ISN 

0079 

RETURN 

INPUT 

IS). 

C060 

END 

INPUT 

m 


K 

SF 

C 

1*4 

000300 

L 

C 

1*4 

N.R. 

M 

C 

i*4 

N.R. 

1 

C 

1  4 

N.R. 

T 

c 

R*C 

N.R. 

AO 

s 

C 

K*0 

000028 

Cl 

S 

C 

R*B 

(>00040 

3A 

Sf 

c 

R*8 

00015  * 

l)E 

SF 

c 

R*8 

0001  r»8 

ON 

SF 

C 

R*d 

000198 

IM 

C 

I«4 

N.R. 

KF 

C 

1*4 

N.P. 

KM 

c 

1*4 

N.R. 

$1 

SF 

c 

k*6 

0OU060 

TP 

S 

CE 

K»8 

OUOOOO 

VN 

C 

R*H 

N.rf. 

ATE 

c 

K*8 

N.R. 

C2K 

c 

R*8 

N.R. 

C2M 

C 

*•« 

...  p. 

OOP 

SF 

c 

R*« 

OOUOdd 

DTK 

S 

c 

R*8 

0001F0 

060 

FA 

c 

k*6 

OOOCAO 

115 

C 

1*4 

N.R. 

130 

c 

1*4 

N.R. 

ONE 

c 

R*8 

N.R. 

KEF 

SF 

£ 

R*« 

UOOOC8 

RSO 

c 

R*t> 

N.R. 

T/„ 

c 

P*8 

*(.«. 

TEN 

c 

R*8 

N.R. 

IK! 

c 

R*d 

N.R. 

TM4 

F 

( 

K*0 

GOUUtU 

1*5 

c 

K*  6 

N.«. 

TH7 

c 

R*8 

N.R. 

TK8 

L 

R*e 

N.  ^  • 

TWO 

c 

K*e 

it .  R  . 

CKRM 

0 

k  +  H 

*.R« 

CMTR 

c 

R*8 

N.R. 

CUMD 

S 

C 

K*5 

000038 

CURE 

S 

c 

K*B 

CUC030 

CVCG 

c 

K  *0 

N.R. 

C480 

c 

R*8 

N.R. 

DLAT 

c 

R*d 

N.R. 

BLUN 

C 

R*d 

N.R. 

UTo* 

c 

P*0 

N.K. 

OTRA 

c 

R*6 

N.R. 

UJN1 

SF  A 

c 

R*8 

000050 

CUM2 

SF 

c 

R*d 

uooose 

CJM3 

SF 

£ 

P*H 

OuOO/0 

DUMA 

SF 

c 

R*8 

000078 

0JM5 

Sf 

c 

R*b 

OUOOaO 

0UM9 

F 

CE 

K*0 

0  Out}  00 

tf 

c 

F*d 

N.R. 

ELAT 

SF 

c 

R*8 

0001 F 8 

cLON 

SF 

c 

R  *t 

000200 

El  IM 

S 

C 

K*b 

000228 

t  X I  T 

SF 

Af 

P*4 

w  0  *  i 

FFRQ 

c 

R*8 

N.R.' 

FIVE 

c 

ft*B 

N.R. 

FLAT 

c 

K*B 

N.R. 

FLlA 

C 

*  *0 

*..R. 

FOUR 

c 

**8 

N.R. 

OEOH 

SF 

( 

K»0 

000208 

H-AD 

SF 

c 

K*B 

000210 

•M.NO 

c 

P*n 

..R. 

IOAV 

SF 

c 

1*4 

000220 

IFOR 

c 

1*4 

N.R. 

I  ONE 

c 

1*4 

n.k. 

1SAT 

Sf 

1  *4 

~  4  Cl 

1STA 

SF 

1*4 

000110 

ITER 

c 

1*4 

N.*. 

1  T I M 

SF 

1*4 

OuOl'4 

ITrlJ 

c 

1*4 

..  '  - 

1365 

c 

1*4 

N.R. 

MOAT 

c 

1*4 

N.R. 

NDUP 

c 

1*4 

N.K. 

%uu 

c 

1*4 

.. 

OFST 

S 

c 

R*8 

00C068 

0M5E 

c 

R*b 

N.R. 

RATE 

SF 

c 

ft*fc 

Loo21d 

p*  FC 

c 

-*f* 

\.P. 

SELV 

c 

R*8 

N.R. 

SMXE 

c 

R  *8 

N.R. 

Su*0 

S 

c 

R*b 

COColo 

SO 't 

5 

c 

-*0 

.  Ml*. 

S7P5 

c 

R*8 

N.R. 

IfcRP 

c 

R*8 

II.  R  . 

THRE 

c 

K*d 

N.R. 

luPI 

c 

>-*d 

N.R. 

WAVE 

c 

R*8 

N.R. 

ALHC 

S 

c 

K*d 

000048 

XN01 

S 

C 

K»d 

OOOOOB 

'  .  5. 

c 

f'*o 

ZERO 

c 

R*6 

N.R. 

ZUSQ 

c 

R*d 

N.R. 

INPUT 

I  **4 

OOoi  1 8 

U-tuMd 

f 

Xf 

1*4 

;j  .o  *o 

CCMMUN  l NF OR WAT  I JN  *•••• 


NAME  OF 

COMMON 

BLOCK  * 

•  SIZE 

of  bloc 

K  0C0388 

HEXAOECIMAL 

BYTES 

VAP.  JMME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

k£L.  ad  ok. 

VAP.  NAME 

TYPE 

REL.  AUOK. 

VAP .  NAME 

TYPE 

kEL.  A9l>. 

P 

R*8 

000000 

KNOT 

A*d 

OOOUOS 

SOME 

R*e 

000010 

Soho 

R*b 

ojo  ;ia 

E 

R*6 

000020 

AO 

R*b 

000026 

CURE 

R*8 

000030 

CGKO 

R*e 

C00036 

C7 

Rfc8 

000040 

XLMS 

r*b 

000040 

0UM1 

R*8 

000050 

(XiR? 

R  *0 

000053 

SI 

R*8 

003060 

cfst 

r«b 

000060 

DUR3 

k*e 

OU0O7O 

0UR4 

K*e 

OOOjTd 

OUM$ 

R*8 

000080 

GOP 

R*d 

OOOObB 

REF 

R*6 

UOOCCb 

BE 

p»e 

0001 '18 

OA 

R*8 

000150 

ON 

ft*8 

000158 

DTK 

R*8 

0001 FO 

ELAT 

K*6 

3001F3 

ELON 

R*8 

000200 

GECH 

R*d 

0J0208 

MEAO 

R*8 

000210 

RATE 

"*0 

0C0218 

IOAY 

1*4 

000220 

MDAV 

1*4 

N.R. 

ETIM 

R*8 

0110228 

OLAT 

P*E 

N.P. 

DICN 

R*8 

N.R. 

SMXE 

R*e 

N.K. 

SELV 

R*8 

N.R. 

FLAT 

P*d 

Y.P. 

FLON 

R*8 

N.K. 

FFRQ 

R*a 

N.R. 

R*0 

K*8 

N.R. 

VN 

F*P 

N.M. 

I 

1*4 

0002F8 

J 

1*4 

N.R. 

tf 

1*4 

SU030C 

L 

1*4 

N.R  . 

M 

1*4 

N.R. 

N 

1*4 

N.R. 

NO  OP 

1*4 

N.R. 

ITER 

1*4 

N.R  . 

T 

R*8 

N.R. 

TEMP 

R*8 

N.K. 

A 

R*6 

N.k. 

EQUIVALeNCeD  VARIABLES  WITHIN  THIS  COMMON  BLOCK 

VARIABLE  OFFSET  VARIABLE  OFFSET  VARIABLE  -FfS*  VARIABLE  OFFSET 

OUR 9  000000 


NAME  OF  COMMON  BLOCK  •  COMC*  SIZE  OF  BLOCK  003128  HErAOEClMAL  BYTES 


PACE  004 


NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

REL.  AOOR. 

VAP.  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

Ktl.  AOOR 

NULL 

1*4 

N.R. 

TONE 

1*4 

N.K. 

ITRO 

1*4 

N.R. 

iff  a 

1*4 

N.R. 

115 

1*4 

N.R. 

130 

1*4 

N.R. 

1365 

1*4 

N.R. 

IM 

1*4 

N.R. 

KM 

1*4 

N.R. 

KF 

1*4 

N.R. 

TAW 

R*ft 

N.R. 

WAVE 

k*8 

N.K. 

CVCG 

R*e 

N.R. 

EFRQ 

R*8 

N.R. 

CWGE 

R*8 

N.R. 

XOSO 

p*a 

N.W. 

ZOSQ 

R*8 

K.R. 

ZERO 

R*8 

N.R. 

UNE 

R*8 

N.k. 

TkO 

R*8 

N.R. 

THRE 

R*8 

N.R. 

FOUR 

R*8 

N.R. 

FIVE 

R*8 

N.R. 

ATE 

H*b 

N.R. 

TEN 

R*8 

N-R. 

363 

R*8 

UOOOAO 

HUNO 

R*8 

N.  ft. 

C480 

ft*8 

N.R. 

S7P5 

R*e 

N.R. 

■  :pi 

R*8 

N.R. 

CTRA 

R*8 

N.R  . 

OTOH 

K*B 

N.R. 

TNI 

P*8 

N.R. 

TM, 

*•» 

OOOOEO 

TM5 

*8 

N.R. 

TM7 

R*« 

N.R. 

TM9 

R*8 

N.R. 

C  t 

R*8 

N.R. 

CKRN 

K*8 

N.R. 

C2K 

R*8 

N.R. 

C2M 

R*8 

N.R. 

aii  •: 

R*8 

N.R. 

135  - 
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•> 

5 

‘  IAt(t 

AGO*. 

v*«ft 

ADDS 

LA9£t 

AOOR 

tA8E<. 

AOOR 

PACE  005 

! 

’0 

0001 9£ 

U 

OOOlfcA 

It 

00055A 

19 

0C0562 

1 

=  20 

OOOSf.A 

2* 

200578 

22 

000549 

23 

000606 

i 

;  7*- 

0006SA 

2S 

00067A 

26 

000691 

I  ‘options 

*N  EFFECT* 

NAME  » 

HAIN.uPT«i2,t lNEC*T» 

6tJt  SIZt'OOOOK* 

5 

!■  •COtn.15 

IN  EfffCT* 

SOl.ACt 

.FNCjIC 

,N0ll$T,N4»DtC< 

•  tUAJ  tHAPt  NUE0I1 * 10»NGXR£f 

♦  SiATUTJCS*  SOURCE  $  TATfcMf M  S  -  T9  .PRO&RAH  SI  Li  ■  18*f 


•STATIST!*  S*  Nil  DIAGNOSTICS  GENERATED 

•  •••••  f SO  OP  COMPUATION  •••••*  49K  BTTES  OF  CORE  HUT  USED 

-  lit  - 


* 


\ 


I 

g 


1 

I 

I 

I 


* 

»* 


X 


LEv£I  1 4  (  SEPT  69  1  US/360  FORTRAN  H  OATE  70.1C6/18.54.04 

COMPILER  OPTIONS  -  NAME*  MAIN, OPT *02 ,HN£ChT-5b,S12e«009C»  , 

SO’.'RCE,  EBCDIC. NOLI  ST  .NOOEC* .LOAD .KAP.NOEOI T, ID.N jXREF 


ISN  0002 

SUBROUT INt  CVTM 

cvtm 

C 

CVfM 

c 

CVTM 

c 

CONVERT  ORBIT  PARAMETERS  {Q  COMPUTATIONAL  UNITS 

CVTM 

c 

COMPUTE  INCREMENTAL  LAT  AhO  LON  GIVEN  HEADING  ANl>  SPEEO 

CVTM 

c 

CONVcRT  CROSS  PLANE  ANO  INTERPOLATE 

CVTM 

c 

RESOLVE  TRUE  LOCK  TIME 

CVTM 

c 

CONVERT  lNITIAt  ESTIMATES  ANO  SET  INTO  COMPUTATION 

CVTM 

c 

CVTN 

ISN  0003 

DOUBLE  PRECISION  TAN, kAVF, CvCG. EPRQ.OPGE. XOSO, 20SQ 

CVTM 

ISN  C004 

DOUBLE  PRECISION  0**  ,T*0,T<nRE  ,F  I  *E  ,  AIE.  T  EN,  060 ,  »JN0.  C4hf),  PS 

CVTM 

ISN  0005 

DOUBLE  PRECISION  TOPI .DTRA.UTOM.TMl , TN4, TM5. TMB.CNTR.CKRM 

C.T'i 

ISN  0006 

DOUBLE  PRECISION  4EKO.POJU.TM7.C2K.C2M.KEEC 

CVTM 

ISN  000? 

DOUBLE  PRECISION  OOP.REP.DE.OA.ON.ELAT.ELON.GECH.SI |m,h6AU,RAT t 

C'.Tm 

ISN  0008 

OOUfiLE  PRECISION  DTK,  TP,  XNUT,  SOME,  SUNU.E.AO.CONE  .CO*‘P.:  !  ,XLK3 

CVTM 

ISN  C009 

DOUBLE  PRECISION  OJKl ,0UM2.SI.0FST,0UM),0JM4,0UM6 

„VTN 

!SN  0010 

DOUBLE  PRECISION  OLAT.OLON. SMAE . SEL V.fL.  * ,f LON.PFKQ.FSQ. Vh 

CVTM 

ISN  0011 

OOUBLE  PRECISION  '•M5f>.CLS'J,CPT ,  T  I.P.CP.  TEMP, T£MA 

CVTM 

c 

C*TM 

C— DIMENSIONS 

CVTN 

ISN  001? 

DIMENSION  CPT I5S.CPI 5) 

CVTM 

ISN  0013 

DIMENSION  OOP! 6I.REF1B) ,0£(9  i,0A19)  *0M  11 I ,ULATI9)*0L0N(9) 

CVTM 

ISN  0014 

DIMENSION  TEMAI20) 

CVTM 

c 

CVTM 

C - COMMON 

CVTM 

(SN  0015 

COMMON  TP.XNDT. SOME. SOMO.E .AO.CUMc *CC‘MD,C i  ,  Xl/*G 

CVTM 

ISN  0016 

COMMON  0UNlvrUM2vSI.OFSr.OUM3.OUM4,DJM5,OOP 

CVTM 

ISN  001? 

COMMON  REF 

CVTN 

ISN  0018 

COMMON  DE.DA,DN,OTK,ELAT,ELON,GhUH,HtAD.P.ATE,£CPj  .M0AY.STIM 

CVTM 

ISN  0019 

COMMON  OLAr.DlON.$NXE.S£LV.FLAT.FLON.FFfcQ,RSQ.VN 

CVTM 

ISN  0020 

COMMON  I.J.K.L.M.N.NOOP.IP 

CVTN 

ISN  0021 

COMMON  Tl« P.CP.CPT .CHSO.ClSO.TEMP, T£MA 

CVTM 

C 

CVTM 

ISN  0022 

COMMON  /COMC/NULL  •  10NF. ,  1  ThU,  If  OR,  1 15,  130. 1365.  IH.KM.KF 

CV1M 

ISN  0023 

COMMON  /COKC/YAjf  .MAVE.CVCG.  EFRQ.QMGE,  X3SQ.20SQ.2ER0 

CVTM 

ISN  0024 

COMMON  /COMC/ONE*TMO,THRE.FOUR.  FIVE. /.TE.  TEN.  060.  HUND 

CVTM 

;?*  0025 

COMMON  /C0MC/C460. S7P5. TOPI .G7RA.0T0M 

CVTM 

ISN  0026 

COMMON  /COMC/TN1.TM4.TM5.TM7.TN0.CMTK.CKRM.C2K.C2M.REFC 

CVTM 

c 

CVTM 

c 

CONVERT  CONSTANT  ORBIT  PARAMET. 

CVTM 

c 

CVTM 

ISN  002? 

TP-TP*TM5 

CVTM 

ISN  0020 

XNDT*fXN0T*.3O»9)*OTRA*TM6 

CVTM 

ISN  C029 

SOME*SOM£*OTRA*TM5 

CVTN 

ISN  0030 

SCMD* SOMO*D TRA* TM8 

CVTM 

ISN  0031 

E-E*TN7 

CVTM 

c 

AO  IS  IN  MtTERS 

CVTM 

ISN  0032 

C0M=*C0ME*DTRA*TM5 

CVTM 

ISN  0033 

COMD-COMD*DTRA*TM8 

CVTM 

ISN  0034 

CI-CI*TN7 

CVIN 

ISN  0033 

xlmoxlmg*otra*tm5 

CVTM 

t  SN  0036 

St*SI*fK7 

CVTM 

c 

-  137  - 

CVTM 

7 

1 

•e 

i 

I 

I 

1 

1 

R 


-  U.JB  >|l I  \  Uj  -  1  J  JIUWMjUU m* »N  |  »H5*U ■ 


1‘A^I 


CO  2 


C— -ChIC*  *50  CCRMEd  Jut  JoPOUrfS 

C»M 

, 

c  —  ---  0  iKiPPifSt,  M'l  wSfcJ  15  S-LUULN 

CV 1 9 

i 

C 

CVT.- 

IS5  00)7 

MKJP-MJLL 

CVlM 

l$S  003 c 

CL'  30  1  - 1  ,  1 M 

CVTM 

isn  0034 

IF  (DCP(II-C2»)  2V.2V.2I 

LV*M 

'5N  C’040 

21  IF  (RfFtii-C2«l  22.29.22 

CVM 

ISN  OGM 

2?  CCPl i l-OCPI  I  l*lC2fc-RtF  (  1 1 J -RfcFC 

CVlM 

ISN  004? 

M)I;P«NOOP»IONE 

CVTH 

ISN  004) 

CO  tC  30 

CVlM 

ISN  0044 

29  OCPItWfcRO 

LVIM 

ISN  0C45 

30  CLNTINUf 

CVTH 

C 

CVTH 

t-»-CUNV£RI  HEADING  AS J  SPEED 

CVTH 

■MU 

C 

CVTH 

A 

ISN  0046 

h£AO«hEAO*CM?R 

CVTH 

ISN  0047 

BATC»PATt*CiCRN 

cvTh 

c 

lvtm 

C  CONVERT  OEIM.OAIKJ  AND  CuMPUTt  INCREMENTAL  CAT  ANO  LON 

CVl.H 

C 

CVTH 

ISN  C04fl 

00  1  &-l,KH 

CVTH 

T 

ISN  0044 

0£IR)-0£IK’*DT3A-TM4 

CVTH 

J 

ISN  0050 

OAIK)«DAtKI-TEN 

r  VTN 

ISN  0051 

r£*>P«A-Kf 

CVTH 

93 

ISN  0052 

TEMP»T£MP-RAT2 

ISN  0053 

DL0NIRI-T£MP#0SINI  HE ADl 

CVTH 

ISN  0054 

1  OLATI  Kl-TEMP-OCGSlMcAOl 

CVTH 

C— -CONVERT  ANO  Sf  *  INITIAL  ESTIMATES 

CVTH 

T 

ISN  0055 

6FRO-(OFST«  47 1 *2-40*4 

CvTh 

I 

ISN  0056 

FFRQ-EFRQ 

CVTH 

J, 

ISN  0057 

ELAT-ELAT4CNT8*TM4 

CVTH 

'dtti 

ISN  0058 

FLAT.ELAT 

CVTH 

ISN  0050 

ELOS«ELON*CMTR*TM4 

CVTH 

ISN  0060 

FLUN-ELON 

CVT  . 

C - dtSClve  IRUf  IOC*  TIME 

CVTH 

T 

ISN  0061 

IF-STIM/TwO 

1 

ISN  006? 

ip-  ituc*ip 

r  » «H 

ISN  006) 

I -IP/ 1 30 

.  vfH 

ISN  0064 

I-IP-I30M 

CVTH 

ISN  0065 

K-TwO»DTK 

CVTH 

ISN  0066 

K«K-I 

ISN  0067 

I-K/I15 

T 

ISN  0068 

K-IP*K- 1)0-1 

CVTH 

S 

ISN  0069 

STIH-K 

CVTH 

WB 

C— CONVERT  CftUSS  PLANE  ELEMENTS 

CVTH 

ISN  0070 

I-K/IFOP 

CVTH 

ISN  0071 

K-A-1F0RM 

CVTH 

ISN  0072 

IP-NULL 

CVTH 

ir 

ISN  007) 

L-ITMO 

CVTH 

ISN  0074 

IF  CM  2,3,2 

CVTH 

A 

ISN  0075 

2  L-IONE 

CVTH 

»<r 

ISN  0076 

3  00  10  1-1,5 

CVTH 

ISN  0077 

CPI  I I-2ER0 

CVTH 

ISN  0078 

CLSD-ONI  IONE*L) 

CVTH 

ISN  0079 

CHSO-ONIL) 

CVTH 

ISN  0080 

IF  (CMSO)  V, 11,11 

CVTH 

ii 

•  * 

r  • 

PAGE  003 

ISN  0081 

11  IF  ICLS01  9,4,4 

CVTH 

ISN  0082 

4  CHSO-CMSO-FIVE 

CVTH 

ISN  008) 

IF  ICMSDI  5,8,8 

CVTH 

is 

ISN  0084 

5  CLSO— ClSD 

CVTH 

! 

ISN  0085 

IF  (CH$D+FIVE)  8,6,8 

CVTH 

,lf 

ISN  0086 

6  CMSD-2E80 

CVTH 

I*K  0087 

8  IP-IPMONE 

CVTH 

ISN  0088 

CPI  IP1-HUND«CHSD4TEN*CLS0 

CVTH 

ISN  0089 

CPTIIP1-L 

CVTH 

ISN  0090 

9  L-L«lTtfO 

CVTH 

ISN  0091 

10  CONTINUE 

CVTH 

: - INTERPOLATE  FOR  HISSING  CROSS  PLANE  ELEMENTS 

CVTH 

ISN  0092 

Tl-TMO 

CVTH 

ISN  009) 

00  20  K-I ,KM 

CVTH 

UN  0094 

DNI K)  -ZERO 

CVTH 

IS  *  C095 

IF  (IP-UuO)  20,20,31 

CVTH 

ISN  0096 

31  ITA-IONE 

CVTH 

ISN  0097 

i-CPTm 

CVTH 

ISN  0C',$ 

J-CPTIIPI 

CVTH 

ISN  0099 

J-J-IFDR 

CVTP. 

ISN  0100 

IF  CR-I1  16,16,12 

CVTH 

ISN  0101 

12  ITA-IP-IT MO 

CVTH 

ISN  0102 

IF  U-J)  13,16,16 

CVTH 

ISN  nio) 

13  ITA-K/ITmO 

CVTH- 

}  * 

ISN  0104 

16  00  19  C-I.3 

CVTH 

*-» 

ISN  0105 

J-k. -I TA -|  ONE 

CVTH 

ISN  0106 

P-ONE 

CVTH 

ISN  0107 

oo  ia  M-i ,3 

CVTH 

ISN  0138 

I-H4ITA-I0MC 

CVTH 

:sn  0109 

IF  U-JJ  17,18,17 

CVTH 

3 

ISN  0110 

17  P«P*CTI-CPTI II J/ICPTI JI-CPTI III 

CVTH 

ISN  0111 

18  CONTINUE 

CVfK 

«  V 

ISN  0112 

19  ONCA)-ONIK1*P*CPU) 

CVTH 

ISN  Oil) 

20  Tl-Tf  *ONE 

CVTH 

ISN  0114 

wETURfl 

CVTH 

m  • 

ISN  0115 

ENO 

CVTH 

138  - 
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/  cVTN  /  SUE  Of  PROGRAM  0C06F2  HEXAOECIHAL  tJYTES  PACE  004 


NAME 

TAG 

TYPE 

ADO* 

NAME 

TAG 

TYPE 

ADO. 

NAME 

TAG 

TYPE 

AOD. 

NAME 

TAG 

TYPE 

A00. 

E 

SF 

c 

A*« 

000020 

1 

SF 

c 

1*4 

OOO2F0 

J 

SF 

C 

1*4 

0002FC 

K 

SF 

C 

I  44 

000300 

L 

SF 

c 

1*4 

000304 

A 

Sf 

c 

IM 

000306 

N 

C 

144 

N.A. 

P 

SF 

c 

RM 

000320 

AO 

c 

AM 

N.A. 

Cl 

SF 

c 

AM 

000040 

CP 

SF 

c 

A40 

000320 

OA 

SF 

c 

R*0 

000150 

OE 

SF 

c 

AM 

000*08 

ON 

SF 

c 

AM 

000198 

IN 

F 

C 

1*4 

OOOOIC 

IP 

SF 

c 

144 

000314 

XF 

F 

c 

1*4 

000014 

AN 

F 

c 

1*4 

000020 

SI 

SF 

c 

P40 

000060 

T| 

SF 

c 

R40 

000316 

TP 

SF 

c 

AM 

000000 

VN 

c 

RM 

N.R. 

ATE 

c 

R40 

N.R. 

CPI 

SF 

c 

R40 

O003SO 

C2K 

F 

c 

AM 

ooouo 

C2N 

c 

RM 

000116 

OOP 

SF 

c 

RM 

003000 

OTA 

F 

c 

RM 

OOOIFO 

060 

c 

AM 

N.R. 

I7A 

SF 

*•4 

0303AC 

115 

F 

c 

1*4 

000010 

130 

F 

c 

1*4 

000014 

ONE 

F 

c 

AM 

000060 

AEF 

F 

c 

RM 

OOOOCS 

RSQ 

C 

RM 

N.R. 

TAN 

c 

RM 

N.R. 

TEN 

F 

c 

A*t 

000090 

TNI 

c 

RM 

N.R. 

TN4 

F 

c 

RM 

000060 

TN5 

f 

c 

RM 

O000E6 

TNT 

F 

c 

AM 

oooofo 

TN5 

F 

c 

RM 

O000F8 

TuO 

F 

c 

RM 

000070 

CKRM 

F 

c 

RM 

000106 

CtSD 

SF 

c 

AM 

000300 

CNSO 

SF 

c 

RM 

000370 

CHT3 

F 

c 

KM 

000100 

CONO 

SF 

c 

RM 

000036 

CONE 

SF 

c 

A*t> 

000030 

CVCG 

c 

RM 

N.R. 

CVTN 

R*4 

000060 

C460 

c 

»M 

N.R. 

DtAT 

S 

c 

AM 

000230 

OLON 

S 

c 

KM 

000270 

OTJN 

c 

RM 

N.R. 

OTRA 

f 

c 

R40 

uococa 

DUNI 

z 

AM 

N.R. 

0JN2 

c 

RM 

N.R. 

DUM3 

c 

P.M 

N.R. 

0JH4 

c 

RM 

N.R. 

DUNS 

c 

RM 

N.A. 

EFAQ 

SF 

c 

KM 

000340 

ELAT 

SF 

c 

k*6 

0001F6 

ELCN 

SF 

c 

RM 

000200 

FFRQ 

s 

c 

AM 

0002c0 

FIVE 

F 

c 

RM 

000066 

FLAT 

S 

c 

RM 

000200 

FlON 

S 

c 

RM 

000206 

FOUR 

c 

AM 

N.A. 

GEOH 

c 

RM 

N.R. 

MEAD 

SF* 

c 

RM 

000210 

HMNO 

f 

c 

RM 

0000A8 

IOAY 

c 

1*4 

N.R. 

IFOR 

F 

c 

1*4 

00030C 

IONE 

F 

c 

144 

000004 

1  T»-0 

F 

c 

1*4 

CO 0008 

1365 

c 

1*4 

N.A. 

HOAY 

c 

I»4 

N.R. 

NOOP 

SF 

c 

144 

000310 

NULL 

F 

c 

1*4 

OCOOOO 

OF  ST 

F 

c 

AM 

000068 

ONCE 

c 

RM 

*■  A. 

RATE 

SF 

c 

RM 

000216 

REFC 

F 

c 

RM 

000120 

SELV 

c 

AM 

N.R. 

SNXE 

c 

RM 

N.  . 

SUMO 

SF 

c 

RM 

GL’OOIB 

SOME 

SF 

c 

RM 

GOOOlO 

ST  IN 

%F 

c 

AM 

000220 

S7P5 

c 

RM 

N.R. 

TEHA 

c 

RM 

N.  P. 

TEMP 

SF 

c 

AM 

00036B 

THR£ 

c 

RM 

N.A. 

TOPI 

c 

RM 

N.R. 

NAVE 

c 

RM 

N.R. 

XLMG 

SF 

c 

RM 

053046 

XNOT 

SF 

c 

RM 

COOOO0 

XOSG 

c 

RM 

N.K. 

ZERO 

F 

c 

R46 

006060 

70SC 

c 

RM 

N.R. 

OCOS 

xF 

RM 

;ooooo 

OSIN 

XF 

RM 

OOOCOO 

•  4 

»•«! 

•  COMMON 

INFORMATION 

NAME  Of 

CONNON 

BLOCK  * 

•  SIZE 

OF  BLOCK  033433 

HEXAOECIHAL 

BYTES 

VAR.  NAME 

TYPE 

AEL.  ADDS. 

VAR.  NANE 

TYPL 

AEL.  ADDA . 

VAP.  NAME 

TYPE 

AEL.  A DDR. 

VAR.  NANE 

TYPE 

REL.  ADCR- 

TP 

RM 

oooooo 

XNUT 

RM 

030306 

SONE 

RM 

000010 

S3N0 

A*e 

300018 

E 

R48 

000020 

A3 

RM 

N.R. 

CONE 

RM 

000030 

COMO 

R«6 

000038 

Cl 

RM 

000040 

XLNG 

R*e 

000040 

3UN1 

R*0 

N.R. 

DUN2 

M*e 

N.K. 

51 

R40 

000060 

OF  ST 

R*0 

000060 

0*JN3 

RM 

N.K. 

0UN4 

PM 

N.R. 

0UN5 

R48 

N.P. 

OOP 

A  *0 

000060 

REF 

*M 

OOOOCS 

CE 

R*6 

000106 

OA 

RM 

000150 

DN 

KM 

000190 

OTA 

RM 

OGUlFO 

ELAT 

P*6 

0001F6 

ELON 

R40 

000200 

GEOH 

R40 

N.R. 

HE  AO 

R*0 

G00210 

RATE 

RM 

000216 

]  DAY 

1*4 

N.R. 

HDAV 

1*4 

N.R. 

stin 

R*« 

000220 

DL  AT 

RM 

000230 

OLON 

R48 

000270 

SNXE 

RM 

N.A. 

SELV 

RM 

N.R  * 

fla* 

RM 

00C2D0 

FLON 

P*8 

000206 

FFRJ 

AM 

000260 

RSO 

RM 

N.R. 

VN 

RM 

N.R. 

1 

1*4 

0302F6 

J 

1*4 

30U2FC 

A 

144 

0UO3D0 

L 

1*4 

000334 

N 

1*4 

000308 

N 

1*4 

N.R. 

NOOP 

1*4 

000310 

IP 

.*4 

000314 

t: 

R40 

G00316 

P 

R*d 

000320 

CP 

RM 

000328 

CPI 

X*B 

000350 

CNSO 

AM 

000376 

CLSO 

R*0 

000300 

T£NP 

RM 

000369 

TfNA 

R*8 

N.R. 

NANE  OF 

COMMON 

BLOCK  •  C0«C* 

SUE 

OF  BLOCK  030120 

HEXAOECIHAL 

BYTES 

VAR.  NANE 

TVPE 

REL.  AODP.  VAP. 

NAME 

TYPE 

RfcL.  A3DR. 

VAR.  NAME 

TYPE 

REL.  AODR. 

VAR.  NAME 

TYPE 

REL.  A0CO. 

NULL 

1*4 

OOOCOO 

IONE 

I  *4 

OJOU04 

ITtO 

1*4 

OOCt/Od 

1FCR 

1*4 

03030C 

*  15 

1*4 

000010 

130 

1*4 

000014 

1365 

I»4 

N.R. 

IN 

144 

CCCU1C 

AN 

2*4 

000020 

AF 

1*4 

03002*. 

TAU 

C46 

N.R  . 

mAVE 

PAGE 

*•6 

005 

N.R. 

CVCG 

'  46 

N.R. 

EFro 

RM 

003043 

UMG6 

P*P 

N.R. 

XOSC 

RM 

'J.P. 

ZOSQ 

N.R. 

ZERO 

»M 

000060 

ONE 

R*e 

000060 

T-0 

R*6 

000073 

THRE 

R*0 

N.P. 

FOUR 

RM 

N.R. 

FIVE 

RM 

OOOOEM 

ATE 

R»e 

N.R. 

TEN 

R48 

000096 

060 

R*a 

N.K. 

MUND 

RM 

00 00 A 6 

C40O 

*•6 

N.«. 

S7P5 

R*0 

N.R. 

TOPI 

R*8 

N.R. 

OTRA 

R40 

ooooce 

DTP* 

P»6 

N.R. 

TNI 

R46 

N. '  , 

TP4 

R40 

03U3E3 

T*5 

R*a 

00C3E6 

Ti7 

*•6 

OCOOF3 

TN8 

R48 

00C0F6 

CNTR 

R*e 

0O0100 

CaRN 

R4  0 

00C1C6 

C2R 

w*6 

atone 

C2N 

R4« 

0001 *P 

REFC 

R*b 

000120 

IMK  aoo« 


LABEL  ADOft 


LABEL  &DOR 


LABEL  AOOR 


?o ( 


,n 

oooitc 

22 

0001FE 

29 

000214 

30 

00021C 

i 

00020E 

2 

00040E 

3 

000412 

11 

000406 

4 

000*90 

S 

00049B 

if 

0004AC 

8 

00Q4BQ 

9 

0U04F2 

10 

0304FA 

31 

0005A6 

W 

0005SF 

u 

IM0S02 

16 

OOOSf? 

IT 

0006'E 

19 

Q0065A 

GJOfefcA 

20 

000696 

•  0‘TIONS  <N  EFFECT*  NAME-  MA1N,QPT«02,L  iNfcCH  J-Sfe*SU< -OOCOK, 

•OPTIONS  IN  EFFECT*  SOURCE ,E6COlCtNaL IST.NOOLCA.lQAOtNAP, NitfOIT, 10. NOJ*F ? 

•STATISIICS*  SOURCE  STATEMENTS  •  114  *PROGfUH  SI2E  *  UTe 

•  STATISTICS*  f.  diagnostics  GENERATED 

•  ••■>••  ENO  OF  COMPILATION  •  49*.  B/IES  if  CJ PE  K*f  US'J 
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5HPSH 


LEVEL  It  I  SERT  69  I  0S/360  FQA IL4V  H  DATE  70.196/18.53.47 

COMPILER  OR? IONS  -  NAME*  NA|N,OftT.02,LINECNT«5l,SUE«OOOOA, 


SOUAff  .EBCOIC.NOUST.NOOECA.LOAD.MAft.NOEDir  .ID.NCXAEF 

(SN 

0002 

SUB^JTINE  Sa*L 

SATC 

c 

SATC 

C-USES  SXVZ  TO  COMPUTE  SATEUITE  COORDINATES 

SATC 

C  ORIVEA  TO  SET  TINE  AND  VARIABLE  PARAMETERS  A  <0  STORING  PARAMETER  A 

SATC 

C 

SATC 

ISN 

0003 

DOUBLE  PRECISION  TAM,** VE .CVCG.EFAQ.0N5E .XUSQ.20SQ 

SATC 

ISN 

0004 

DOUBLE  PRECISION  ONE. UQ, ImAE.F I VE.ATE. TEN.O6C.4UNO.C40O.S7P5 

SATC 

ISN 

0005 

00U8LE  PRECISION  TOPI .OTRA.OIOM.Tftl .iMA.TNS.TfB.CHTR.CARN 

SATC 

ISN 

0004 

OOU6LE  PRECISION  ZEAO.F 0UR.TM7.C2A.C2M.REFC 

SATC 

ISN 

0007 

OOUBLE  PRECISION  OOP.OJM.OE.OA.ON.ELAT,  ELON, CEOh, SUM, HEAD, RA TE 

SATC 

ISN 

0008 

DOUBLE  PRECISION  OUC.TP.XNDT.SONE.SOMO.E.AO.CONE.COND.CI.xcnG 

SATC 

ISN 

0009 

OOUBLE  PRECISION  OUN1.0UN2. SI .0FSJ.0UM3.0UN4.DUM5 

SATC 

ISN 

0010 

OOUBLE  PRECISION  01 AT.OLUN, SMXE .SELV.fl  AT.FLON, FfRQ.ASO. VN 

cATC 

ISN 

0011 

OOUBLE  PRECISION  OE  K.OAK.ONK 

SATC 

ISN 

0012 

OOUWF  PRECISION  T.TEMP 

SATC 

C 

SATC 

C - DIMENSION 

SATC 

ISN 

0013 

DIMENSION  OOP(81,OJMI5I*OE«9*,OAC9).DN(  n»,0LATI91.DL0N(9. 

■>ATC 

C 

SATC 

C— -COMMON 

SAT". 

ISN 

0014 

CO- MON  TPt *NOT » SOME, SOND, £, AO»COm£ , CUND.Cl , XL MG 

SATC 

ISN 

0015 

COMMON  DUMi  ,  0UM2  . S 1 .  OFS T  «  0JM3,  DUM4 ,  *>  *M5  ,  CO® 

SATC 

ISN 

0016 

COMMON  OEK.OAK.ONK 

SATC 

ISN 

0017 

COMMON  OUM 

SATC 

ISN 

0018 

COMMON  OE  ,OA,DN»UlA»fL**  #L1  V‘M«  CEOHj  n£  AO,  MAT  E.ICA7.M0AY.STIN 

SATC 

ISN 

0019 

COMMON  OLAT  0L->*»,  C*XE  *  SEL  UT.f  LUX.f  f  AQ.R  SQ.V 

SATC 

ISN 

0020 

COMMON  l,J.x.L.P'.N,’*raP.lTFft 

SATC 

ISN 

0021 

COMMON  T.IEMP 

SATC 

C 

SATC 

ISN 

0022 

COMMON  /COMC/NULL,  *CNE,IUO,IrOR.I15,  ‘30.  1 365.  IH.AP.llF 

SATC 

ISN 

0023 

COMMIT  /C 3MC / TAM • NAVE VCG.EF«0,GM&E,x  *S0t2QS3./*PO 

SATC 

ISN 

0024 

CUMKON  /{.:.MC/ONE,TAD,T^£ff  OUR. FIVE. ATt, TEN, 060./1UND 

SATC 

ISN 

0027- 

COMMON  /COMC/C4e0,STP5.'LP!,0TAA.0l0M 

SATC 

ISN 

002  S 

COMMON  /CCMC/TmI  ,Tm4.TMS  rK7»TM0#CMTP,C**M,C2A,C2M»R£M 

SATC 

c 

SAIC 

t— COMPUTE  TINE  SINCE  PERICEE 

SATC 

Iy* 

042/ 

T»S  f IN-TP 

SATC 

l  SN 

002fc 

If  (T*C480)  1.1.2 

SATC 

;sn 

0024 

1 

T»T*DTOM 

SATC 

ISN 

0030 

CC  TO  4 

SATC 

ISN 

C031 

2 

IF  IT-OTO^TOPl/XNOTi  4,l,i 

SATC 

ISN 

0032 

3 

T*T-OTOM 

SATC 

ISN 

0033 

4 

00  5  A-l.AM 

SATC 

ISN 

0014 

D£K»OEC  f ) 

jATC 

ISN 

0035 

0AR«0A(KJ 

SATC 

ISN 

0016 

i*K«DN<M 

SATC 

ISN 

0037 

CALL  SXT2 

SAIC 

ISN 

0338 

5 

T-TpIp" 

SATC 

ISN 

W3» 

SAIC 

ISN 

0040 

END 

SATC 

,'A?C  /  SUE  J (  PejiFA;  *t«UUOt  i-rtts  rA*,|  Cv2 


VANE 

IaC 

TYPE 

ACO. 

WH| 

IA 

C 

TYPE 

K.l). 

lAF  t 

AG 

1  r*>t 

AC  j. 

.A<£ 

IAv 

T».  1 

a.  ; . 

6 

c 

R*5 

S.P. 

I 

c 

1  *4 

S.P. 

J 

c 

1*4 

< 

SF 

*. 

1*4 

1  4.  . 

L 

c 

1*4 

N.ft. 

M 

C 

1*4 

S 

S 

c 

‘..4. 

T 

Sf 

c 

•  »s 

31 0 

AO 

c 

R»e 

S.P. 

Cl 

c 

*•6 

S.R. 

JA 

F 

c 

R*e 

.vOISc 

a 

( 

c 

5.- 

rv 

F  C 

ft*8 

000198 

IN 

c 

1*4 

\.R. 

t 

!•*» 

S.R. 

•  - 

1 

c 

I  •*. 

. 

S! 

c 

«»6 

S.F. 

TP 

F 

c 

ft*# 

UOO  133 

VS 

r 

«*0 

Alt 

c 

s.  A. 

UK 

c 

R*0 

N.R. 

C2M 

c 

p*e 

N.M. 

Oik 

S 

c 

fo 

.  .  3  -j  JJ 

PtM 

S 

c 

-4- 

--•OCC- 

OHK 

s  c 

R*8 

oonoce 

OOP 

c 

S.ft. 

JT< 

c 

«*0 

Ji.'* 

c 

*<♦8 

t.p. 

060 

c 

R»P 

N.ft. 

115 

c 

1*4 

S.*». 

I  JO 

c 

1*4 

-Si 

c 

J*  » 

PSO 

c 

R*8 

s.p. 

TA» 

c 

P*0 

N.f. 

Ten 

c 

p*»0 

..c. 

t.-l 

c 

p.. 

T*4 

c 

S.P. 

TM5 

c 

«•# 

c 

<*o 

«•  ,. 

T  'h 

c 

» 

T.O 

F  C 

«®B 

000070 

IMP** 

c 

RP8 

S.F. 

CHIP 

c 

F  *0 

C  / 

w 

•  *9 

COME 

c 

R*-8 

S.P. 

CvCO 

c 

*•6 

\.  , 

CP**0 

c 

-*c 

v  ,  J  .  w 

ll'l 

c 

F  *l» 

CL3N 

c 

P*8 

S.P. 

UTuN 

F 

c 

k*8 

irfUCOUv 

i  :*-a 

c 

-•o 

„  .1 

c 

nuM2 

c 

R  •  8 

S.J  . 

JJK3 

c 

S.P. 

'4 

c 

•  *c 

.  ’  s 

c 

EFH3 

c 

ft  ''6 

S.P. 

tC  AT 

c 

K*6 

\.R. 

r  ius 

c 

«.*c 

If 

V 

-M 

.... 

MVc 

c 

t*8 

s.  '. 

HAT 

c 

*•8 

•«.*<. 

f 

•..R. 

I  ri 

c 

F  •  9 

i.  j. 

CEOrt 

c 

P®8 

S.P. 

•  •LAO 

c 

A#8 

S-P. 

c 

Ui< 

c 

I** 

•„t. 

I  FOR 

c 

I  *4 

S.P. 

USE 

c 

!•<. 

S-R. 

lTf» 

1 

1*4 

.... 

!  T.  j 

c 

!  •  •• 

•.  R. 

J3fcS 

c 

!•'* 

s.?. 

FJ/.V 

c 

I  *4 

S.*. 

SJCP 

c 

1  •*» 

VI  L 

c 

:  •- 

\-  '. 

HFST 

c 

P 

S.P. 

c 

•*•6 

S.M. 

PAT. 

c 

P  *o 

-IIC 

c 

SATC 

P»<. 

0003  7C 

Stl  v 

C 

S.P. 

S«*{ 

{ 

..  4, 

Sc 

c 

-  •- 

S.P. 

SO-E 

c 

ft*8 

S.P. 

Si  I  v 

F 

c 

S*»/ 

Af 

...  .  / 

S7P5 

* 

Tf  VP 

c 

p*e 

s.*». 

T  *®F 

c 

S.R. 

T  ,PI 

r 

r*Z 

V  -  w  *  J 

'.I 

-  •- 

XLMC 

c 

P®6 

s.4. 

f  ,CT 

c 

p*<j 

ULbSJ*1 

»  IS. 

c 

/  .  F 

L 

*»• 

23S3 

c 

R*6 

S.P. 

Cw 

i..F^-»’xf:  :\ 

SAME  ^F 

COMMON 

2L0C*  • 

•  SUE 

of  5L3Ck  ci  .32- 

MiX.-9n.I-Al 

-»ii « 

VA9.  SAME 

TYPE 

PEL.  AUDR. 

VAR.  NAME 

TrPf 

*Ei  .  / 7  . 

yiP.  .X^k 

TY--1 

•»M.  . 

.  *  .'  *t 

1  *  '» 

1  . 

TP 

P*8 

0309 SO 

XSDT 

Jj.ut 9 

S.wt 

4  » 

►  «r 

.  '  . 

E 

H*B 

li.*. 

A3 

S.P. 

c  •» 

..F  . 

C  v3 

*  .  -  . 

Cl 

1*9 

S.P. 

Ut, 

M*8 

N.P. 

-*t 

.  2 

.  . 

SI 

ft*M 

S.P. 

jfM 

P«c 

S.F. 

>..'3 

_  *v 

».*  .' 

'  s 

-  «  r 

...  F  . 

JUN5 

K*M 

S.F. 

LoP 

F*3 

S.r  . 

.  if 

.  •» 

.  <  9 

5  • 

£  F 

- 

OSK 

ft*M 

COCOS  s 

i*.* 

*•0 

S.P. 

-F 

*  *A 

>  1  -  ■* 

4 

.  I>. 

1*  » 

UN 

«♦« 

OOC148 

U?  * 

P*8 

S.P. 

U  M 

■  •*! 

•  1 

.  -  . 

CEOH 

P*B 

S.P. 

hEAU 

ft*# 

rt.  f  . 

-Alt 

'  wc“ 

...  . 

1  .AY 

!<* 

.*  . 

MUAY 

14*. 

S.P. 

sum 

ft*l 

OJ0228 

-til 

SMXE 

R»B 

S.P. 

SELV 

k#« 

S.  ft  . 

IlM 

-•e 

...  • 

H  . 

♦F 

.»  . 

FfftO 

R*A 

N.e. 

ft  si 

RP8 

4.  *. 

y. 

K»f 

-f  • 

1 

*  1  4 

.  . 

J 

1*4 

S.P. 

4 

1®4 

JOJ3UO 

t 

1*4 

..  F  . 

‘•4 

..  . 

N 

TEMP 

1*4 

R*R 

N.p. 

\.N. 

\D— i5 

!♦% 

V.K. 

-  141  - 

1 

..f  . 

I 

*!*• 

*tA*e  or  oco<-a 


>ur  jr  JiuLN 


ooot^c*  mAMOcwl" 


VAR.  NAME 

TYPE 

«H.  A00*. 

V**».  NAHt 

TYPE 

RU-  *1 

NJll 

IH 

N.R. 

1  JNt 

1*4 

N.R. 

IIS 

1*4 

S.P. 

1  50 

1*4 

N.R. 

KM 

1*4 

000020 

KF 

1*4 

N.R. 

f  VCG 

R*e 

N.  R  • 

EFRJ 

t3S0 

R*« 

N.P. 

t£R0 

IMRE 

R*a 

N.  R. 

f  JU* 

TEN 

R*a 

N.R. 

063 

S7P5 

R  •  8 

N.R. 

TOPI 

THl 

K*a 

N.R. 

TN4 

T4b 

«*a 

N.R. 

CHIR 

C2N 

R*6 

N.R. 

P.fcfC 

R*d 

R*8 

R*d 

R»o 

«*d 

K*d 

a*a 

R*t> 


N.R. 

N.R. 

N.R. 

N.R. 

0000C0 

N.R. 

N.k. 

N.R. 


NAME 

TYPE 

Kfci*  AOOk. 

VAR.  NAME 

TYPE  « 

:l.  aguh. 

I  TWO 

l*«* 

N.R. 

IFOR 

1*4 

N.R. 

t 

1365 

1*4 

r..R. 

1M 

1*4 

N.P. 

I  Aa 

R*P 

N«h  • 

WAVE 

R*6 

N.R. 

#  r 

PAGE 

003 

UMCE 

R*8 

N.R. 

XCVJ 

r*e 

N.R. 

ONE 

R*8 

N.R. 

1-3 

R*8 

0J0070 

T  X 

FIVE 

R*8 

N«  h» 

ATE 

R*B 

N.R. 

MU  SO 

K*6 

N.K» 

C460 

K*6 

000000 

CTRA 

K*8 

N.R. 

OTCH 

R*d 

000030 

T*5 

R*8 

N.R. 

T*7 

R*b 

N.R. 

CKRK 

«*8 

N»H« 

C2K 

K  •  y 

s.a. 

I 


I  i 

I  j 
1 
I 
I 


l 


I 


>»**>* 


LABEL  AOUR 


LmMEL  A  DDR 


LABEL  AODR 


LABEL  AOOR 


PAGE  OQA 


l 

I 

w 

I 

I 

I 


1  OOOOC2  2  000002  3  OOOOEC 

5  OOOIJE 

>CPT I UNS  IN  EFFECT*  NAME-  MAIN, UPT »02» L I NECNT- 56, SI li  -COOOK, 

♦OPTIONS  IN  EFFECT*  SOunCE,£6CDIC.NULISr,NOCEC<,LUAO«MAP,NQEOir,IO»NJKAEF 
•STATISTICS*  SOURCE  STATEMENTS  -  39  .PROGRAM  SUE  •  356 

•STATISTICS*  NO  DIAGNOSTICS  GENERATED 

••••••  ENO  OP  COMPILATION  ****••  61*  6rI£$  Qf. 
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A  OOOOFO 


CORE  NOT  US.'O 


I 

1 


I 

I 


16**1  u  l  SCM  69  » 


OS/ 360  FORMAN  H 


OATF  70.19*/! A.4*.n« 


COMPILER  OPTIONS  -  NAPE-  MAIN,OPT-02,lINECNT«58,SIZE»Q0Q0X, 

SOURCE  «EBC 01 C.NOL 1ST ,NOQECA»LQAO, MAP tNOE0 IT »IO»NOXREF 
ISN  0002  SUBROUTINE  S XY* 

C 

C  COMPUTE  SATELLITE  COORDINATES  FOR  TIME  T  CORRESPONDING  T3  POINT  * 

C 

ISN  '003  DOUBLE  PRECISION  TAN, NAVE, CVCG.EFRQ.OMGE.XOSQ.ZOSO 

ISN  ‘0G%  OOUBL f  PRECISION  UNE , TWO.  THRE, F I VE , ATE, T EN,060,MUN0, C480, STP5 

ISN  0005  DOUBLE  PRECISION  TOPI ,OTRA,OTOM,TM1 »TM4,TM5,TM8,CHTR,CXRM 

ISN  0006  DOUBLE  PRECISION  l ERO.FOUR , TM7 ,C2A .C2H.REFC 

ISN  0007  DOUBLE  PRECISION  00P,XS,VS«2S,ELAT,EL0N,GEQH, ST  I M, HE AD, RATE 

ISN  0008  OOUBL E  PRECISION  OTA, TP.XNOT, SOME, SUMU.fc, AO, COME, COHD.CI ,ALM& 

ISN  0009  DOUBLE  PRECISION  OUMl,OUM2,iI*OFST,OUM3, 0UM4,0UM5 

ISN  0010  OOUBLE  PRECISION  OuH,T ,T£MP 

ISN  0011  DOUBLE  PRECISION  DlAT.OLON, SMXE ,SELV,FLAT,FLON,FFRQ,RSO,VN 

ISN  0012  OOUBLE  PRECISION  DIA.OAA.ONA 

ISN  0013  OOU&l f  PRECISION  XHK«€A,AK(UK,VK,mn,CmN(SMX,XKP,YKP,0K,CBA,SBK 


ISN  0014 
ISN  0015 


( $N  0016 
ISN  001^ 

isn  ooie 

ISN  0019 
isn  oo;o 

ISN  0021 
ISN  0022 

ISN  0023 
ISN  0024 
ISN  C025 
ISN  0026 
ISN  0027 


C - 01  MENS  I CN 

DIMENSION  00P(8),XS(9I,YS(9),2S(11),DLAT(9),0L0N(9) 
DIMENSION  0UM14J 
C 

C - COMMON 

COMMON  TP, X NOT, SOME , SOHO ,E, AO, COME , COM3, Cl , XLMG 
COMMON  OUH1,DUM2,S1,OFST,DUM3,OUM4,DUM5*OOP 
COMMON  OEK,OAK,DNK.XMK,OUM 

COMMON  XS,VS,2S,0TK,ELAT,EL0N,GEUH,HEAD,RAT£,IDAY(HDAV,STIM 
COMMON  DLAT.DLON.SMXf ,SELV,FLAT,FLON,FFRO,KSO,VN 
COMMON  I ,U,K,L tM,N,NTOP , ITER 

COMMON  T, TEMP, EY,AK,UX,VA,WK,CMK,SWK,XKP, YAP, BK,CBK,SBK 
C 

COMMON  /COMC/NULL , I  ONE , I TNO, I  FOP , 11 5, 130, 1 365 , IM, AM, AF 
COMMON  /COMC/TAk, WAVE, CVCG.trKC,0MGE,X0SQ.20S0, ZERO 
COMMON  /C0MC/0.Mt,l»0,TMPl, FOUR, FIVE, AT3, TEN, 060, KIND 
COMMON  /CnMC/C480,S7‘  5, TCP!  .DTRA.OTGM 

COMMON  /COMC/TMl,TP4,TM5,TM7,TMi«,CMTR,CARH,C2A,C2M,REFC 


ISN  0026 
ISN  0029 
ISN  0030 
ISN  0031 
ISN  0032 
ISN  0033 
ISN  0034 
ISN  0035 
ISN  0036 
ISN  0037 
ISN  0038 
ISN  0039 
ISN  0040 
ISN  0041 
ISN  0042 
ISN  0043 
ISN  0044 
ISN  0045 


XMA-T  *XN01 

EA»£*OSlNl/HM*XNA*D£* 

AA-AG*  &/A 

VA-A>  ftdttNIEKI 

UK-  (fiCOS<  EA  )-EI*AA 

NA-VJME-T-SCMD 

CMA*OCOS(NK» 

SMK'DStNCk'A) 

XKP»UA*CMK-VA*SWA 

VAP-VA*CMA*UK*SWK 

BK-  1COMO-OMGE  »-T»CO.ME" 

CBK  *OCO$t  BA) 

SBA-05 INI  BA  > 

T£MP-YKP*CI-ONA*SI 

XSIA)-XKP*C8A-TEM«**SPK 

YSIX1-XXP-SBX*T£MP*LBk 

ZS«KI-rXP*SI-DNA*CS 

RETURN 


I 


I 

®  /  SXYZ  /  SIZE  OF  PROGRAM  OG02o4  mCXAUECIHAL  t5>  Ff- S  FAOF  OL3 


NAK£  TAG  IYP£  ADC.  NAME  TAG  TYPt  ADU.  NAME  TAG  lYPf  AJC. 

I  C  1*4  N.K.  J  C  1*4  N.R.  <  f  C  1*4  LO^Jv 

M  C  1*4  N.K.  N  C  1*4  N.K.  T  F  C  K*8  00^.18 

AO  F  C  R*8  Q J0028  BK  SFA  C  K*b  0003  70  Cl  F  C  •»•**  COJuAO 

IM  C  1*4  N.K.  Kf  C  1*4  N.K.  *N  C  1*4  *».«. 

TP  C  R*8  N.R.  UK  SF  C  R*b  C00338  VK  SF  C  F*8  000340 

MK  SFA  c  R*8  000348  XS  S  C  K*b  00010b  YS  S  C  K*«  000150 

ATE  C  R*8  N.K.  CdK  SF  C  K*8  000378  C«K  SF  C  P*8  000350 

C2M  C  K*8  N.K.  OAK  F  C  K*b  000000  0£K  F  C  K*8  0U00C8 

OOP  C  A*6  N.K.  DTK  C  R*8  N.K.  OUH  C  «*8  N.K. 

115  C  1*4  N.K.  130  C  1*4  N.K.  ONE  C  **8  N.K. 

SbK  SF  C  R*8  000380  I»MK  SF  C  R*b  000358  TAh  C  R*8  N.K. 

TKl  C  K*8  N.K.  TH4  C  K*b  N.K.  TM5  C  K*8  <«.K. 

TM8  C  R*8  N.K.  ’><0  C  K*b  N.K.  XKP  SF  C  R*8  000360 

\Kp  SF  C  k*6  00036?  CkKH  C  K*8  N.K.  CMTR  C  K*8  N. R. 

COKE  F  f  R*6  J00030  Cv»CC  C  R*8  N.K.  C4bO  C  K*8  N.R. 

OLON  C  R  *8  N.R.  OTOM  C  K*b  N.K.  L/TRA  C  R*H  N.R. 

UuM2  C  R*8  N.R.  X*N3  C  H*b  N.K.  DUM4  C  K*8  N.K. 

EFRO  C  K*.N  N.K.  LI  AT  C  R*8  N.K.  Ft  ON  C  K*8  N.K. 

FIVE  C  R*d  N.K.  FLAT  C  K*b  N.K.  flON  C  K*8  N.R. 

GtCrt  C  R*8  N.R.  HEAD  C  K*b  N.K.  MUNO  C  k*H  N.R. 

IFOR  C  1*4  N.R.  lONt  C  1*4  N.R.  ITER  C  1*4  N.R. 

1365  C  1*4  •«  K.  HOAV  C  1*4  N.K.  NOOP  C  1*4  N.R. 

CF  ST  C  R*8  \.R.  OHGt  F  C  K*8  000046  KATE  C  R*8  N.R. 

SELV  C  R*b  N.K .  SHXE  C  K*8  N.R.  SOHO  F  C  R*8  000016 

SUM  c  R**  N.R.  SXYZ  K*4  000090  S7P5  C  R*«  N.R. 

TmKE  C  R*8  N.K.  TOPI  C  R*b  N.R.  »AVE  C  »•»  N.R . 

XNOT  F  C  R*8  000008  XOSQ  C  R*b  N.R.  ZERO  C  K«8  N.K. 

OCOS  XF  R*8  000000  OSIN  XF  K*8  000000 

*****  COMMON  INFORMATION  ••••• 


NAME  OF  COMMON  BLOCK  •  *  SIZE  UF  BLOCK  00o388  HEXADECIMAL  BYTES 

VAP.  NAME  TYPE  REL-  AOOR.  VAR.  NAME  TYPE  REL.  AODR.  VAR.  i'iAME  TYPE  RFL.  AQOR. 
XNOT  R«8  OOOOC'  SOME  R«6  000010  SOMO  K*B  000018 

AO  R«b  000028  COME  K*8  000030  COMO  K*6  000038 

XLMG  R*d  000048  DUM1  R*8  N.K.  0UH2  R*8  N.R. 

UFST  R*b  N.K.  0UM3  R*8  N.R.  0UM4  k*t  N.R. 

OOP  R*6  N.R.  OEX  R*6  0O00C6  OAK  R*8  000000 

XMX  R*B  OOOOEO  OUH  R*8  w.K.  XS  P*8  000106 

ZS  R*8  000198  OTK  R*B  N.K.  ELAT  0*8  N.R. 

GEOH  R*d  N.R.  HEAD  R*6  N.R.  RATE  K*6  N.R. 

MOAY  1  *4  N.K.  SUN  K«8  N.K.  DL  AT  R*8  N.R. 

SMX£  R*B  N.R.  SELV  R«6  N.R.  fLAT  R*8  N.R. 

FFRQ  X*fl  N.R.  RSQ  R*8  N.K.  VN  R*8  N.P. 

J  1*4  N»R.  K  1*4  000300  L  1*4  N.R. 

N  1*4  N.R.  NOUP  1*4  N.R.  ITER  1*4  N.K. 

TEMP  K«8  000320  EK  R*8  000328  AK  R*8  000330 

VX  K*fi  000340  MK  ft*8  00034b  CaK  R*8  000350 

XK*  R«6  000360  YKP  R*8  000368  BK  k*8  0C0370 

SBK  R*8  000360 

-  MS  - 

1 

I 

I 

I 

1 

2 
1 
I 


I 


VAR.  NAME  TYPE 

TP  R*5 

E  R*8 

Cl  R  >8 

SI  R*« 

0UH5  R*8 

DNK  R*8 

YS  R*8 

ELON  R*8 

10AV  1*4 

OLON  R*8 

FLON  R*8 


PEI.  AOOR. 
R. 

000020 

000040 

000060 

N.R. 

000008 

000150 

N.R. 

N.R. 

K.R. 

N.R. 

N.R. 

**,  R. 
000318 
000338 
000358 
000378 


P  ACT  n«t4 


NAN  E  Of 

COMMON 

BLOCK  •  CCMC* 

SUE 

CF  BLOCK 

030126 

HEXADECIMAL 

ByTES 

AR .  NAME 

TYPE 

R6t.  AODR.  VAR 

.  NAME 

TYPE  K£L.  A3DR. 

VAR.  NAME 

TYPE 

KtL.  AUOR. 

VAR.  NAME 

TYPE 

PEL.  AOOR 

N  JLL 

1*4 

N.R. 

lose 

1*4 

N.R. 

l  TrfO 

1*4 

N.R. 

I  FUR 

1*4 

N.K. 

115 

1*4 

N.R. 

120 

1*4 

N.K. 

1365 

1*4 

N.K. 

IH 

1*4 

N.K. 

KM 

1*4 

N.R  « 

Kf 

1*4 

N.R. 

TAW 

ft  *8 

N.R. 

HAVE 

P*4 

N.K. 

CVCG 

R*0 

N.R. 

EFKJ 

k  ’b 

N.K. 

OMCE 

K*8 

0U0U48 

XUSU 

k*8 

N.R. 

20SQ 

R*a 

N.R. 

2ER0 

*«** 

N.K. 

ONE 

k*0 

N.  K. 

TWO 

K*b 

N.K. 

ThRE 

R*8 

N.R. 

FOUR 

»  *0 

N.K. 

FIVE 

K*8 

N.K. 

ATE 

R*8 

N.K. 

TEN 

«*a 

N.R. 

DbO 

K«8 

N.K. 

HU  NO 

R*8 

N.K. 

C480 

R*8 

N.K. 

S7PS 

R*8 

N.R. 

TORI 

R*i 

N.t. 

DTRA 

R*8 

N.K. 

DTli.M 

k*8 

N.K. 

T  Ml 

R*8 

N.R. 

TM4 

u*» 

•N.K. 

:m5 

R*  8 

N.K. 

TM7 

P*b 

N.K. 

:m6 

«*8 

N.R. 

CMIA 

8*8 

N.R. 

CKRH 

R*8 

N.K. 

C2* 

K*b 

N.K. 

C2M 

R*8 

N.R. 

KtfC 

K*e 

N.K. 

•OPTIONS  IN  EFFECT*  NAME-  MAIN»GPT  *02»LlNE.LM*5c,Sl/l*  YCoOK • 

•OPTIONS  IN  EFFECT*  SOUPCI  «f  !COIC*NJLlST,NuOtCK  .LUAU.MAP.NL'E'UT,  tO.NUXREF 

STATISTICS*  SOUPCf  STATEMENTS  »  4*  .PROGRAM  SUE  *  612 

•  STATISTICS*  NO  DIAGNOSTICS  GENEPAUO 

*•**••  END  If  CCMP1LAT Ion  *•••••  61K  BYTES  OF  CORE  NOT  oSEL 

-  1*16  - 


I 


m 

l 

trvrt  1*4  I  SFMT  69  I  JS/360  FORTRAN  H  DATE  70.196/18.53*51 


I 

I 

I 

I 

1 

I 

1 

I 

I 

I 

I 

I 

I 

I 

I 

1 


tO*(P|'fR  OPTIONS  -  NWti  MAIN, DPT •O2,LlNfcCsT*5b»SiZ€»0GQ0X, 


SOURCE  .EBCDIC.NCt  1ST, .■UUtCK.LLA'J.HAP.NUEUlf,  !U,NJX.<EF 

IS*  coo? 

SUBROUTINE  SOLVE 

SOLVE 

C 

SOLVE 

C- 

USES  SINT  NHICh  CALCULATES  NAYUATUR  CUuKDI NATES  AND  SLANT  RANGE 

SOl  Vf 

c 

Solve 

ISM  C003 

Oi/JUE  PRECISION  TAn.  mAVE.CvCD,  EFK J# *  XU  SO » 20  SO 

SOLVE 

ISN  C004 

00. OLE  PRECISION  ONE , 1*0, ThKfc , f IVE, ATE, TEN, 060, MUND,C4bO, S 7P5 

SOLVE 

1SK  0005 

DOUBLE  PRECISION  TJPl  ,QTH.\,D‘ JH,  TH1  ,TM4,TM5  .TM8.CMTR.CKRM 

SOLVE 

ISN  0006 

000 OL E  PRECISION  ZERO. FOUR.  TN/.C2K.C2H.REEC 

SOLVE 

ISM  0007 

COJtJLE  PRECISION  OOP . XS.Y  '..ZS, ELAT  , 'LCN.CEUM.SUN.HEAO.RATE 

SULVE 

ISN  3008 

DOUBLE  PRECISION  Dl>  IP .XNOI.SUHE . SOMO.E . AO.CQHE .COHO.C l ,XLMG 

SOLVE 

IS*  C099 

DOUBLE  PRECISION  OJM;  ,0UH2. SI. OFSI .OuM3.OJH4.OUH5 

SULVE 

ISM  0010 

double  precision  olai .olun.shxe .selv.elat .flgn.ffrq.rsq, vn 

SULVE 

1SN  boll 

DOUBLE  PRECISION  T  .IEHP.A 

SULVE 

ISM  001 2 

DOUBLE  PRECISION  C.  Bll.bU.alU.822.H20 

SOLVE 

ISM  0013 

DOUBLE  PRECISION  S.S2.S3 

SOLVE 

ISf.  0014 

DOUBLE  PRECISION  XL AT ,XLUN, xFkQ 

SOLVE 

ISM  0015 

DOUBLE  PRECISION  DEI 

SOLVE 

c 

SOLVE 

c- 

— DIMENSION 

SOLVE 

1SS  0016 

DIMENSION  A! 3.4| 

SULVE 

ISN  0017 

OIHENSICN  DOPtai.XSm,  VSI9I.2SI  111. D  LA  1(9}  »  OLONl  9) 

SULVE 

ism  ooie 

DIMENSION  C ( 4 1 

SOLVE 

c 

SOLVE 

c- 

— COMHCN 

SolVE 

ISN  0019 

COMMON  TP.XNDT.SOHE.SOMD.Ef AU.COME.rUHD.Cl.XLMC 

solve 

ISN  0020 

COMMON  DUH «  OJM2.SI.0FSr.UUM2.DUH4tUJH6.DDP 

SOLVE 

ISN  0021 

COMMON  Bll,  .12*822* til  0.620*  XL  AT ,  XLON,  /FR. 

SULVE 

ISN  0022 

Cl'MMCM  xs, YS.ZS. DTK, ELAT, ELON.OEUrt, MEAD, RATE.  IDAY.MDAy, ST  IM 

SOLVE 

ISN  0023 

COMMON  DLAl .DLON.SHXE ,S£LV, FLAT, F LON. EfRJ.RSQ.VN 

SULVE 

ISN  0024 

COMMON  I.J.K.L.M.N.NOOP, ITER 

SOLVE 

ISN  0025 

CO'  JN  T  ,T£HP, A 

SOLVE 

ISN  0026 

COMMON  C 

SLLVE 

c 

SOLVE 

ISN  0027 

COMMON  /COMC/NULL.IONE. UNO. IFOR, U5,  130,  1365. IM.XH.KF 

SULVE 

ISN  0028 

COMMON  /CO**C/TAU,MA VE .CVCC. EFRQ.UMCE.XDSQ.20S3, 2ER0 

SOLVE 

ISN  0029 

COMMON  /COMC/ONE.TMO, :hR£, FOUR, FIVE, ATE. T£N, 060, HUNO 

SOLVE 

ISN  0030 

COMMON  /COMC/C480. S7P5.T0PI.DTRA.DIUK 

i'JLVE 

ISN  0031 

COM  MO*'  /CGMC/TM1.TM4.TN5.TM7.TM8.CMTR.CKRH.C2K.C2M.REFC 

SOLVE 

c 

SOLVE 

ISN  0032 

EQUIVALENCE  (811. SI .IB12.S2) • (822, S3) .( TEMP, OET) 

SULVE 

c 

SOLVE 

ISN  0033 

00  9  ITER-1, U 

SOLVE 

c- 

—  INITIALIZE 

SOLVE 

ISN  0334 

00  1  1-1,3 

SULVE 

ISN  0035 

DO  1  J-l*- 

SOLVE 

ISN  0036 

1  Ad.JI-ZERO 

SuLVE 

ISN  0037 

SMXE-ZERO 

SULVE 

ISN  0038 

RSQ-ZERO 

SOLVE 

ISN  0039 

NDOP-NDLl 

Solve 

ISN  0040 

MI  ONE 

SOLVE 

c- 

—FORM  THE  A  MATRIX 

SOLVE 

ISN  0041 

CALL  SLNT 

SOLVE 

ISN  0U42 

CID-WAVE-TAM 

SULVE 

PACE  002 


ISM 

0043 

00  4  N-l.IM 

SULVE 

ISN 

0044 

C(22'*S2 

SOLVE 

ISN 

0045 

CC31-S3 

SULVE 

ISN 

0046 

C(4)-S 

SOLVE 

ISN 

0047 

K-N-IONE 

SOLVE 

ISN 

0048 

CALL  SLNT 

SULVE 

ISN 

0049 

CC2I-S2-CI2I 

SOLVE 

ISN 

0050 

C<3)-*3-C<3> 

SOLVE 

ISN 

0051 

CI41-S-CI4) 

SOLVE 

ISN 

0052 

IF  IOOPINI I  4.4.2 

SULVE 

If  N 

0053 

2  NOUP-NOCP- IONE 

SULVE 

ISN 

0054 

CI4 J-bAVE*DOP( Nl-Ct 1 )*FFRQ-C (41 

SCLU 

ISN 

0055 

RSQ-R SQ*C(4I*C(41 

SOLVE 

ISN 

0056 

DO  3  1-1.3 

SOLVE 

ISN 

0057 

00  3  J-l. 4 

SULVE 

ISN 

0058 

3  A(I.J)-A(l.J|«C(I)*C(J> 

SOLVE 

ISN 

0059 

C- 

4  CONTINUE 

—  SOLVE  A  MATRIX  FOR  DELTA  LAT.LUh.FRE3  tiV  ELIMINATING  FREQUENCY 

SULVE 

SOLVE 

ISN 

9060 

CET-A1 1.2) /A (1,1) 

SULVE 

ISN 

0061 

6ll-AI2*2)-All*2l*DET 

SOLVE 

ISN 

0062 

B12«A(2, 31-All, 3)*0ET 

SOLVE 

ISN 

0063 

810-A(2«4)-AI  1*4)*0ET 

SOLVE 

tin 

0064 

OET -A (1.3) /All, 11 

SOLVE 

ISN 

0065 

B2X-A(3.3)~A<1*3)*0£T 

SOLVE 

ISN 

0066 

820-/ I 3*4 l-AI 1.41 -OET 

SOLVE 

ISN 

0067 

DET -811 •822-012*812 

SOLVE 

ISN 

0068 

XL AT- (822*8 10-5 12*8 201 /DET 

SULVE 

ISN 

0069 

XLON-I 81 1*820-812*8 10) /OET 

SOLVE 

ISN 

0070 

c- 

XFRO-I  A( 1.4)-A(1,2)«XLAT-A( 1.3 )*XLUN)/AI 1,11 
— UPOATE  NEM  ESTIMATE 

SOLVE 

SOLVE 

ISN 

0071 

FLAT-FLAT*XLAT 

SOLVE 

ISN 

0072 

FLON-FlONPXLON 

SOLVE 

ISN 

0073 

c- 

FFRO-FFRO*XFRQ 

—CONVERGENCE  CRITERIA  «  .000*  KM  ANO  2.4  CPH 

SOLVE 

SOLVE 

ISN 

00**4 

D2P4-2. 40*0 

SOLVE 

ISN 

0075 

OET -CVCC/OCOSI FLAT ) 

SOLVE 

ISN 

GOTO 

IF  (0A8S(XLATI-C/CC»  7.7.9 

SOLVE 

ISN 

0077 

7  IF  I0A8SI PLGNl-DETl  8.8*9 

SOLVE 

ISN 

0078 

8  IF  (0A8SIXFR0I-02P4)  10*10*9 

SOLVT 

ISN 

0079 

9  CONTINUE 

SULVE 

ISN 

0080 

10  RETURN 

SOLVE 

ISN 

0081 

END 

MH  V£ 

I 
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PBPSpwaPWPP  .jj.uiiu  Ji4» 


/  WIVE  /  SIZE  OF  PPuGRAM  VOL47b  MfcXAOEC  l*Al  ftYUS  PAG)  M) 


N  AM{ 

TAG 

TYPf 

A  CO. 

NAMfc 

Tag 

IVPt 

ADO. 

NAME  TA 

iG 

IYPL 

AUU. 

NAM* 

TAG 

TVH 

Al.f.. 

£ 

$f 

c 

R  •  8 

C0G328 

z 

SF 

C 

K«6 

000388 

( 

C 

R*8 

N.R. 

l 

Sf 

c 

1*4 

00021  6 

J 

Sf 

C 

1*4 

0002  FC 

ft 

S 

L 

1*4 

000300 

L 

C 

1*4 

N.R. 

K 

c 

1*4 

N.P. 

N 

SF 

c 

1*4 

00030C 

S 

F 

CL 

R*b 

0033C8 

T 

c 

K*e 

N.R. 

AO 

c 

P*ft 

N.P. 

Cl 

c 

ft*8 

N.R. 

!M 

F 

C 

1*4 

OOOOIC 

KF 

C 

1*4 

N.R. 

KM 

c 

1*4 

N.R. 

SI 

c 

k*fl 

N.P. 

S'* 

f 

CE 

R*e 

000300 

S3  F 

CE 

K*8 

00G008 

TP 

c 

P*e 

N.R. 

VN 

c 

B  •  8 

N.P. 

XS 

C 

R*8 

N.R. 

VS 

C 

R*8 

N.R. 

IS 

c 

p*»» 

N.P. 

Alt 

c 

R«9 

N.R. 

dlO 

SF 

c 

R*  8 

OOCOtO 

811  SF 

CE 

R*b 

C0G0C3 

31 2 

SF 

CE 

R*8 

eouoOL 

R20 

SF 

c 

P*0 

OOOOf 8 

622 

Sf 

tfc 

k*d 

000008 

C2K 

c 

k*« 

K»  K« 

C2M 

C 

R*8 

N.P. 

OFT 

SF 

CE 

ft*8 

000)20 

OOP 

f 

c 

R*  8 

000)88 

OTK 

c 

R*8 

N.R. 

060 

C 

R  vfi 

N.P. 

ns 

C 

1*4 

N.R. 

130 

c 

1*4 

N.*'.. 

ONE 

C 

R*o 

N.k. 

RSO 

SF 

c 

R*g 

0002C6 

TA« 

f 

c 

ft*8 

000026 

TEN 

c 

R*0 

N.R. 

TM1 

c 

K*8 

N.R. 

TM4 

c 

P*8 

N.R. 

T  MS 

c 

«*8 

N.P. 

TM7 

c 

R*8 

N.K. 

TM0 

c 

R*d 

N.K. 

TH'* 

c 

R*8 

N.R. 

CKRM 

c 

R*  8 

N.R. 

CMTR 

c 

K  *8 

N.R. 

COMO 

c 

R*d 

N.R. 

r  QHc 

*8 

N.R. 

CVCG 

f 

c 

P*8 

000038 

C480 

c 

R*0 

N.  R  . 

ULAT 

c 

R*8 

N.R. 

DLTi 

c 

v*e 

DIOM 

c 

R*8 

N.P. 

DTK  A 

c 

R*8 

*•-  R. 

OOMl 

c 

R*8 

N.H. 

no  M2 

r 

ft  0 

N.P. 

0UM3 

c 

P«0 

N.R. 

00N4 

c 

K*0 

N.R. 

0UM5 

r. 

R*4 

f..  i  . 

32  P4 

S 

Ef  5a 

c 

»*«0 

N.P. 

ELAT 

L 

R*0 

N.R. 

EL  UN 

c 

H*l‘ 

*.,4. 

FFMS 

s» 

c 

kr0 

'w  G2£.< 

FIVE 

c 

P*0 

N.R. 

FLAT 

SFA 

c 

Rc» 

000230 

FLUN  SF 

c 

•»*„ 

J0S2J6 

FOUR 

c 

4*0 

N.R. 

GfC  l 

c 

ft*8 

N.P. 

HEAD 

c 

K*8 

N.R. 

KJNO 

l 

k*8 

N.R. 

IDA? 

c 

1*4 

N.R. 

IF3P 

c 

I  *4 

N.R. 

(ONE 

f 

c 

1*4 

0U0004 

ITER  SF 

f 

1«* 

000314 

ITrfD 

c 

1*4 

N.R. 

1)65 

c 

I  *4 

N.R. 

MOAV 

c 

1*4 

N.R  • 

N*/OI*  Sr 

c 

1*4 

0002 10 

NULL 

F 

c 

1*4 

300C03 

OF  SI 

c 

R*0 

N.R. 

OMGE 

c 

R*8 

N.R. 

RATE 

c 

R*0 

N.K. 

REFC 

c 

R*B 

N.R. 

SEL  V 

c 

R*8 

N.P. 

SLNT 

SF 

XF 

R*4 

0000)0 

SHXE  s 

c 

R*e 

0002CO 

»OHD 

c 

R*8 

N.R. 

SOME 

c 

R*8 

N.R. 

SUM 

c 

H  *8 

M.6  . 

S7P5 

c 

A*  t 

N-R. 

TEMP 

CE 

R«6 

00C320 

Th»E 

c 

r*6 

N.P. 

TOPI 

c 

<1*8 

N.R. 

« AvE  F 

( 

000030 

XFRQ 

SFA 

c 

R«8 

00G100 

XL  AT 

SF  A 

c 

R** 

OOOOFO 

XL  MG 

c 

K*8 

N.R. 

XL ON  SFA 

*»*b 

0G03F8 

XNOT 

c 

P*C 

N.R. 

nose 

c 

P*8 

N.P. 

ZERO 

f 

L 

R*a 

000060 

ZOSO 

c 

*■3 

N.R. 

SOLVE 

R*4 

50004C 

ocas 

XF 

R»6 

000000 

I 


i 

! 


i 

i 

i 

i 


COMMON  INFORMATION 


NAME  OF 

COMMON 

BLOCK  • 

*  SIZE 

OF  BLOCK  0003A8 

HEXADECIMAL 

BYTES 

VAR.  NAME 

type 

REL  AOP° . 

VAR.  NAME 

TYPt 

REL.  ADO*. 

VAR.  NAME 

TYPE 

Rl<  /  LCOk. 

VAR.  NAME 

TYPt 

MCI  -  A90P. 

TP 

P*6 

N.P. 

XNOT 

R*d 

N.R. 

SOME 

R*e 

N.k. 

SOHO 

R*9 

N.R. 

E 

R*  8 

N.P. 

AO 

R*8 

N.R. 

COME 

«*s 

N.R. 

:gmo 

»  *8 

N.P. 

Cl 

R*8 

N.R. 

XLMG 

«*6 

N.R. 

0UM1 

*»*8 

N.R. 

OUR  2 

F*e 

N.P. 

SI 

R*8 

N.P. 

OF  $1 

P  *6 

N.R. 

DUM3 

P*9 

N.R. 

P«#*4 

R*e 

N.R. 

0UM5 

R*8 

N.P. 

OOP 

K*8 

030086 

fill 

R*8 

0000C9 

B12 

ft*  8 

000000 

822 

P*8 

000009 

BIO 

H*C 

OOOOEO 

820 

R*e 

OOOOE6 

XL  AT 

R*e 

OOOOFO 

XLON 

R*  8 

0000*  8 

XFkU 

k*d 

000100 

XS 

R*8 

N.  X. 

YS 

R*8 

N.R. 

ZS 

P*8 

N.R. 

OTK 

R*8 

N.  R  . 

n  AT 

R*  ) 

N.R. 

ELON 

R*8 

N.R. 

GEOM 

R*6 

N.R. 

HEAD 

R*8 

N.R. 

aATE 

R  *6 

N.R. 

IOAY 

1*4 

N.R. 

MOAY 

2*4 

N.R. 

STIM 

R*8 

N.R. 

OLAT 

R*3 

N.R. 

3L0N 

R  *  8 

N.R. 

SMXE 

R*0 

0002C0 

SEL  V 

R*8 

N.R. 

FLAT 

R*6 

000200 

FLON 

R*) 

0002C8 

F  FRO 

R*8 

0002  EO 

RSO 

R*8 

0002E6 

VN 

R*8 

N.R* 

I 

1*4 

3 002 F 6 

J 

1*4 

0002 FC 

K 

1*4 

0003w3 

L 

*•4 

N.R. 

M 

1*4 

N.R. 

\ 

1*4 

OOOTOt 

*03? 

1*4 

GOOSiu 

ITER 

1*4 

000314 

T 

ft*. 

TEMP 

R*H 

000)20 

A 

R*8 

000328 

C 

000386 

I 

I 

1 


E0J1VALENCE0  VARIABLES 
VARIABLE  OFFSET 

Ml  THIN  THIS  CUMM3N 
VARIABLE 

BLOCK 

OFFSFT 

VARIABLE 

OFFSET 

VARIABLE 

OFFSET 

S  OOOOC8 

S2 

000000 

S3 

000008 

OET 

000320 

PAGE  004 


I 


NAME  OF  COMMON  BLOCK  •  COHC*  SIZE  OF  BLOCK  000128  HEXADECIMAL  3YTES 


,  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYFE 

REL.  AOOR. 

VA®.  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

REL.  AOOR 

NULL 

1*4 

000300 

IONE 

1*4 

000004 

I  TWO 

1*4 

N.R. 

(FOR 

1*4 

N.R. 

11** 

1*4 

N.  R. 

130 

1*4 

N-R. 

1365 

1*4 

N.K. 

»M 

1*4 

OOOOIC 

KM 

1*4 

N.R. 

KF 

1*4 

N.R. 

TA* 

R*8 

Ot.0028 

MAVC 

R*8 

000030 

CVCG 

R*0 

000038 

EFP.O 

R*8 

N.R. 

OMGE 

R*8 

N.R. 

XOSO 

R*B 

N.R. 

ZOSO 

R*9 

N.R. 

ZERO 

R*8 

000063 

ONE 

«*8 

N.R. 

1  MO 

R*8 

N.R. 

THPE 

«•« 

N.R. 

FO’IR 

R*8 

N.R. 

FIVE 

R*e 

N.R. 

ATE 

«*8 

N.R. 

TEN 

R*6 

N.R. 

060 

R*8 

N.R. 

MONO 

R*8 

N.R. 

C480 

R*8 

N.R. 

S7P5 

R*e 

N.R. 

TOPI 

R*8 

N.R. 

OTRA 

R*8 

N.R. 

otom 

R*8 

N.R. 

TM1 

N.R. 

T*4 

R*8 

N.R. 

TM$ 

R*8 

N.?. 

TH7 

fi*f 

N.R. 

TH8 

R*8 

N.R. 

CMTR 

R*8 

N.R. 

CKRM 

R*e 

N.R. 

C2K 

«*d 

N.P. 

C2M 

R*8 

N.R. 

REFC 

R*8 

N.R. 
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a 

8 

9 

I 


IA5EI  AODR 


1  000166 
T  000626 


•  OAT  I  OHS  IN  EFFECT* 

•  OAT IONS  IN  EFFECT* 


2  000262 
8  000636 


lA8f'_  ADO* 


i  0002A? 
9  006662 


•  STATISTICS*  SOURCE  i  TATfNEMS  * 

•STATISTICS*  NO  DIAGNOSTICS  GtNcMATCD 
•••••*  END  OF  COMPILATION  *••*•• 


NAME*  NAIN.OPf*02*i.IN£CNT«)6»SUfc*OOOOK« 

SOURCE  t£6C01C.NaUST,N0ulC*,L3AD,NAA,N0EDlT,  10. NUXAEF 
90  •  PROGRAM  SUE  •  1166 


t^fcL  AOOR 


6  OP02CC 

10  000656 


S3*  BYTES  OF  COME  NUT  USED 


I 


I 

I 

I 

1 

I 

I 

l 

1 


I 


IfVCi  1«  (  SEP!  69  »  „S/1  6J  EOKIRAN  h  unit  I'J.  ivt  /  io.^s.  *•> 

COMPILE*  CP’IUNS  -  NAM*  "A1  *,OJ'!»J2.t!\tC>*!-5j>,SUfc-OOUO^. 

SuUKCfc  .Ed_l)IC,*.JL  1ST  *  SuDtC*  t  LOAD*  MAP, HOED  IT  «  i  U  •  NUXREE 
OOO?  $UBROOT|N£  SIN  I 

c  SLM 

C---COHPUTt  StAf4T  RANGE  AN  DERIVATIVES  EUk  PuINT  6  AND  EL  t  VAT  |UN  jl-.f 

C  SLM 

ISN  0091  Ol'UbLt  PRECISION  TA*.,«Avt,CvCv,.fcE»<j,jMoC,*USC,tOSO  SIM 

ISN  0004  DOUBLE  P<l C !  SI  JN  th(  ,  1.0, IrtKt , F 1  Vfc  , A!  fc,  f  EN,  06 0,HJND,C48G» S7P5  SLM 

ISN  0005  *v,,iHLf  PRECISION  UP  I ,  I)  IK  A,  U 1.  M,  In  1 1 IM4,  IMS  ,  T  *8,C  MTft  ,C  KkM  SINT 

I**  CJ06  N-JUrLi  PPfCiSIUN  ?t,RQtE0‘JK.tH7,C<<,C?H#KEFC  SLNf 

ISN  0007  0*-  91'  PRECISION  OJP.XS.rSW  S.tLAl  ,tLuN,G£0<*, S!l«. HEAD, HAT  t  SIM 

!  SN  GOOD  C‘  Unit  PRECISION  QTk,IP,AM>r,$  >Nt,SuN‘'(C,A£,:il«k,COiO.CI,Xl*G  slm 

ISN  0009  DOUftU  PRECISION  ,3**2 , Si , UC S!  , U JMi , UJM4 , UUM5  SLM 

ISN  9010  CO'*"**  PRECISION  Ol  A  T  ,0L  u  *  ,  SMAt  *  St  l  V.H  A  T  ,UXN,FF f<0,PSO#VN  SLM 

I5N  OCU  000 bit  PRECISION  I, TEMP  SlM 

ISN  0012  OUOBLC  PRECISION  A  >LM 

•SN  SMU  CtlUBLl  PRECISION  XN  *  YN,  l  N,  AS?,  YN?,Z  N2  ,X  ,  V  ,Z  SIM 

ISN  0014  OUUdlf  PRfCISIUN  CtAf ,SlAI,$LON,Gl0N.U,C  SLNI 

ISN  0CI5  00 UHL E  PRECISION  S.S2.S3  SLNI 

C  SLNI 

C  —  -DIMENSIONS  SLM 

ISN  0016  DIMENSION  DUPI  8)  ,  XSl  91  ,  YS(9  >  ,?  >111 1  ,1*  AT(9>,0lGM91  SLM 

ISN  0017  DIMENSION  A(3,4},C<4»  SLNI 

C  SLNI 

C—  -COMMON  SLM 

iSN  3010  COMMON  TP,XNOT.SuME.SoMu.fc»AUtCJMt ,CJMD,CI«XtMG  SLNT 

ISN  0019  COMMON  DO*l  ,0UM2  .SI  ,OF$T  ,0GM3,0UM4  ,UUh>,  UOP  SLM 

ISN  0020  COMMON  CLAt,SLAI#SI0N,CL0Nfw,XN#YN,2N  SLM 

ISN  00?l  COMMON  XS  «  VS  t  2S«01X,  EL  AI  »EL0N,06UH,  Ht  AD,  RATE  ,  U)AY  ,Ml)AY  ,  SI  1 M  SLM 

ISN  0022  COMMON  Ot.AT,OLUN«SMXE  ,SELY,f LA7  , f LUN, Ef HQ, C$C, VN  SLM 

ISN  0023  COMMON  !  »J»K»l,H,N,NDUP.  HER  SLNI 

ISN  0024  COMMON  T, TEMP, A  SLNI 

ISN  0025  COMMON  C  ,X,Y, 2  ,XN2,YN2»2N2  Si  Ni 

C  SLNI 

ISN  0026  COMTJ.I  /COMC/NOLL.10NE,1I-U,IFJ4,I1S  I  30, t 365, IM,kM,*F  SLNI 

ISN  0027  C0MM3E  /CUMC/T4M,taAVfc ,CVCG,EEKU,UMG6 ,XOsQ, ZOSO, ZERO  SLNT 

ISN  0028  COMMON  /CC*C/0‘4E,T«0, ThRE, FOUR. flVE, ATE. T£N.060,MUND  SLM 

ISN  0029  COMMON  /ri  ^C/f480,SyP5,TUPl,0TKA,0I0M  SLNT 

ISN  0030  CONWS*  .*CaML?lMl,TM4,lM5,  lM7,TM0,rMTR,CAl«M,C2X,C2M,REFC  SLNT 

C  SLNT 

ISN  0031  i  QUlVAi.fc*»C£  KLAI.i)  51 ,  S2 1  •  I  S-UN.S3 )  SLNT 

c  SLNT 

c  SLNT 

C— -N/VlOATfRS  COORDINATES  AND  DERIVATIVES  SLNT 

ISN  0032  T*  **  *  AT'*)  SLM 

ISN  0033  CLwI«CLO'iTTEMP»  SLM 

ISN  0034  SLA.  ‘SSI \iTEi<Pj  SLNI 

tSN  0035  TE»?'-*LO^O^NJm>;ci  AV  SLNT 

ISN  0036  CLDNUCCS4.S«PI  SLNT 

ISN  0037  UL>.>  DS1MT-.  .'-3  SLM 

ISN  0038  0  */CSC«C:  AT-ClA:  >20s3*SLaT'-<SLAI  SLNT 

ISN  0039  0«,'WnOt  SLNI 

ISN  0040  ?£*f .XSSC/r-ClOM  SLNT 

ISN  0041  X\.|£6><;laT  SLf«T 

ISN  C042  VN«/.N»SLL.*‘  SLNT 


PACE  002 


ISN 

0043 

XN*XN«CLON 

SLNT 

ISN 

0044 

ZN»«  Z0SQ/D»G£0M»*$1  AT 

SLNT 

ISN 

0045 

XN?— TENP«SIAT 

SLNT 

tSN 

0046 

VN/»XN2*SL0N 

SLNT 

ISN 

0047 

XN2»XN2*CLON 

SLNT 

ISN 

0048 

2N2»T«MP-;CLAT 

SLNT 

C — 

-SLANT  RANGE  AND  DERIVATIVES 

SLNT 

ISN 

0049 

X>XSIR)-XN 

SLNT 

ISN 

0050 

T«YSm-YN 

SLNT 

ISN 

0051 

Z*ZSIM-Zn 

SLNT 

ISN 

0052 

S2»x*x»r*V4Z*2 

UNT 

ISN 

0053 

S»OSQRT IS2I 

SLNT 

ISN 

0054 

S2«-IX*)iN2*T*YW*Z*iV.|/S 

SLNT 

ISN 

0055 

S3- Ix*vn-y*xni /S 

SLNT 

C — 

-COMPUTE  StMELEVl  AND  SAx  6  MAXIMUM 

SLNT 

ISN 

0056 

SELV-  t  X*XN*V*VN^Z*ZM)/ ’ S*DI 

SLNT 

ISN 

0057 

IF  CSELV-SQXE)  2,2,1 

S'.NT 

ISN 

0058 

1  SNXE-SEIV 

SLNT 

ISN 

0959 

2  PETUIN 

SLNT 

ISN 

U060 

END 

SLNT 

-  ISO 


/ 


SINT  / 


Slit  Of  PROGRAM  0002 £6  HEXADECIMAL  BYTES  PAGE  003 


NAME  TAG  TYPE  AOD» 

*  C  R*8  N.ft. 

l  C  1*4  N.R. 

*  C  1*4  N.R. 

X  SF  C  R*e  0003 AS 

CI  C  ?*“  N.R. 

SI  C  R*8  N.R. 

C  R*8  *.R. 

TS  F  C  ft*8  OOOl'O 

C2K  C  .8  N.R. 


060 

C 

R*0 

N.P. 

RSQ 

C 

R*8 

N.R. 

TM4 

C 

R«8 

N.R. 

TWO 

C 

R*8 

N.R. 

CKRM 

C 

R*8 

N.R. 

COMO 

C 

R*8 

N.R. 

OLAT  f 

c 

ft*8 

000230 

00  HI 

c 

►  *8 

N.R. 

0UM5 

c 

k*8 

N.R. 

FFRQ 

c 

*•8 

N.R. 

FOOR 

( 

R*8 

N.R. 

I  day 

' 

1*4 

N.R. 

I  TWO 

c 

1*4 

N.R. 

HULL 

c 

!•* 

N.R. 

REF  c 

c 

R*8 

N.R. 

5L0N  SF 

CE 

R*0 

0000D8 

STIH 

C 

P*8 

N.R. 

TOPJ 

c 

R*8 

N.R. 

XOSQ  F 

c 

R*8 

000050 

OSIN 

XF 

R*8 

OOOOOO 

NAME  TAG 

TVPE 

AOO. 

C 

C 

R*0 

N.R. 

J 

C 

1*4 

N.R. 

N 

c 

1*4 

N.R. 

y  sf 

c 

R«6 

000380 

1M 

c 

1*4 

N.R. 

S2  SFA 

CE 

ft*8 

oooooo 

XN  SF 

C 

R*6 

0000F0 

ZN  $F 

c 

R*8 

000103 

C2N 

c 

R*8 

N.R. 

115 

c 

1*4 

N.R. 

TAW 

c 

R*8 

N.R. 

TM5 

c 

R*b 

N.K. 

XN2  SF 

c 

ft*8 

0003CO 

CLAT  SF 

CE 

R*8 

0000C8 

CORE 

c 

R*8 

N.R. 

OLON  F  c  ft*0  000278 
0UM2  C  R*8  N.R. 

EF«0  C  ft*8  N.ft. 

FIVE  C  A  *8  N.R. 

CEOH  F  c  R*S  000208 

!F0R  C  1*4  N.R. 

1365  C  1 *4  N.R. 

OFST  C  ft*8  N.R. 

SEIV  SF  C  R*8  0002C8 

SMXE  S  C  R*e  0002CO 

S7P5  C  R*fi  N.K. 

NAVE  C  K*8  N.R. 

2ER0  C  ft*8  N.R. 

ocos  xf  R*a  oooooo 

•••*•  COMMON  1  ftf  QftMAT I  ON 


NAME  TAG  TYPE  AOO. 

0  SFA  C  ft*8  OOOOE8 
A  F  C  1*4  000300 

$  SF  CE  R*8  OOOOC8 

2  SF  C  K*b  000368 

AF  C  1*4  N.R. 

S3  S  CE  R*8  000008 

*S  F  C  «*8  000106 

2S  f  c  r*«  oooioe 

OOP  C  «*«  N.R. 

130  C  1*4  N.R. 

FtN  C  R*6  N.R. 

TM7  C  «*8  N.ft. 

TN2  SF  C  R*8  0003C8 

CLON  SF  C  ft*8  OOOOEO 

CVCG  C  K*b  N.R. 

OrON  C  R*b  N.R. 

OON3  C  K*b  N.R. 

£tAF  C  K*b  N.K. 

FLAT  F  C  R*8  UC0200 

MEAD  C  R*B  N.R. 

I°NE  C  |*4  N.R. 

MOAT  C  1*4  N.R. 

OMGE  C  R*b  N.R. 

SLAT  SF  CE  R*d  OOOOOO 

SOHO  C  R*b  N.R. 

TEMP  SFA  C  R*8  000320 

XLHC  C  R*0  N.R. 

/OSQ  F  C  R*b  000050 


NAME  TAG  TYPE  APO. 

E  C  8*8  N.R. 

L  C  J*«  N.R. 

T  C  R*8  N.R. 

AO  C  R*8  N.R. 

AM  C  1*4  N.R. 

TP  C  R*8  N.R. 

YN  SF  C  R*8  0000F8 

ATE  C  R*8  N.R. 

OTIC  C  R*8  N.R. 

ONE  C  R*8  N.R. 

TMl  C  K*8  N.R. 

TM8  C  R*8  N.R. 

ZN2  SF  C  R*8  0003D0 

CNTR  C  R*8  N.R. 

C480  C  R*8  N.R. 

DTR/  C  R*8  N.R. 

D0M4  C  R*8  N.R. 

ELON  C  P*8  N.H. 

FLON  F  C  R*8  000208 

HUNO  C  R*8  N.R. 

ITER  C  1*4  N.R. 

NOOP  C  1*4  N.R. 

RATE  c  R*8  N.R. 

SENT  K*4  000094 

SOME  C  R*8  N.R. 

ThRE  C  P*8  N.R. 

ANOT  C  ft *8  N.R. 

OSQRT  XF  ft*8  OOOOOO 


NAME  Of  COMMON  BLOCK  • 

VAR.  NAME  TYPE  ft £l .  AOOR. 
T»*  ft*8  N.R. 

E  R*8  N.R. 

Cl  »*a  N.R. 

SI  «*8  N.R. 

0UM5  R*8  N.R. 

SLON  ft*8  00  0  0  08 

YN  ?*t»  OOOOF8 

IS  R*e  000198 

GEOM  R*Q  000208 

MDAY  |*4  N.R. 

SMXE  R*8  0002 CO 

FFRO  R*8  N.R. 

J  1*4  N.R. 

*  1*4  N.R. 

TEMP  R*e  000320 

Y  R*8  0003 BO 

IH2  R*8  000300 


•  SUE  UF  BLOCK  0003De  HEXAOEC IMAL  BYTES 


VAR.  NAME  TYPE 

XNOT  P.*a 

AO  R«0 
XL MG  R*e 

OFST  R*b 

DO P  ft *8 

CLON  ft*6 

ZN  R*  o 

DTK  R*b 

Hf AO  ft *6 

sum  R*a 

SELV  ft*8 

RSQ  R*8 

A  1*4 

NDQP  1*4 

A  R*8 

l  R*b 


R£L«  AOOR. 
N.k. 
N.R. 
N.R. 
N.R. 
N.R. 
OOOOEO 
OOOJOO 
N.R. 
N.R. 

N.  ft. 
0002C8 
N.  R. 
00030C 
N.R. 
N.R. 
000388 


VAR.  NAME 
SOME 
COME 
00*1 
DUM3 
CLAT 
D 
XS 
ELAT 
RATE 
CLAT 
FLAT 
VN 
L 

ITER 

C 

>N2 


TYPE 

R*8 
ft*8 
ft*8 
R*fc 
ft*8 
R*8 
ft*8 
ft*  8 
R*e 
R*8 
R*6 
ft  *6 
1*4 
1*4 
ft*6 
R*E 


ft£L.  ADUK. 
N.R. 
N.R. 
N.R. 
N.R. 
OOCOCB 
OOOOE8 
000108 
N.R. 
N.R. 

000230 

000200 

N.R. 

N.  R. 
N.R. 
N.R. 
00U3C0 


.  NxiMfc 

TVPfc 

REL.  AD 

somo 

P*6 

N.R. 

COHO 

R*b 

N.R  . 

0'JR2 

R*8 

N.R. 

OOP  4 

R*8 

N.R. 

SLAT 

K*6 

oooooo 

XN 

R*8 

OOOGFO 

YS 

R*6 

000150 

ELON 

R*8 

N.R. 

I OAY 

1*4 

N.R. 

CLCN 

p*6 

000278 

FLGN 

p*e 

000208 

I 

1*4 

N.R. 

M 

1*4 

N.R. 

T 

r*b 

N.R. 

X 

R*8 

0003A8 

YN2 

P*8 

0003C8 

"'rwote 


^ 1  A*i-T-'l - j ^c-S 1 ' *l‘ ¥/*■' ^ y V*^J  j-  x. 


PACE  00*. 

COtl!  VALENCE  0  VAR  1  ABLcS  MITh|’|  Th|S  COMMON  BLOCK 

VABlAdlt  OFF$fT  VAA1A3LE  OFFSET  VARIABLE  OFFSET  VARIABLE  OFFSET 

S  3000CS  S?  OOOOUO  S3  OOOODo 


NAMf  OF 

CO 

BLOC*.  •  Cl'MC* 

S»2E 

Jl  BlUtN 

000128 

MEHAOECIMAL 

BYTES 

VAR.  NAMF 

TfPE 

«*El.  AOOR.  VAR 

.  NAME 

TYPt  Rtt.  AOOR • 

VAR.  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

REL.  AOO 

NOLL 

1*4 

N.P. 

lost 

1*4 

N.R. 

IT  MO 

1*4 

N.R. 

IFOR 

1*4 

N.R. 

115 

1*4 

N.R. 

130 

1*4 

N.R. 

1 365 

1*4 

N.K. 

1M 

1*4 

N.R. 

*.M 

1  *4 

N.R. 

NF 

1*4 

N.R. 

TAM 

R*8 

N.K. 

HAVE 

R*e 

N.R. 

CVCG 

R*H 

N.K. 

EFRu 

R*3 

N.R. 

ONCE 

R*8 

N.R. 

XOSQ 

R*b 

000050 

70SJ 

«•» 

000058 

ZERO 

R*tJ 

N.R. 

ONE 

R*b 

N.R. 

1  MO 

P*8 

N.R. 

ThRE 

a«* 

N.R. 

FUOR 

r*b 

N.K. 

FIVE 

r*b 

N.R. 

ATE 

R*8 

N.R. 

TEN 

R*B 

N.F. 

CfeO 

R*a 

N.P. 

HUNO 

R*6 

■N.R. 

C480 

R*8 

N.R. 

S7f*S 

P*8 

N.P. 

TOPI 

K*9 

N.K. 

OTRA 

R*8 

N.R. 

OTOM 

ft*8 

N.R. 

TH1 

R*H 

N.P. 

TN4 

K*d 

N.R. 

TM5 

R*8 

N.K. 

TM7 

R*b 

N.R. 

T  Mfl 

a*B 

N.K. 

CHTR 

R*d 

N.R. 

C&RM 

R*8 

N.K. 

C2K 

R*8 

N.R. 

C  2« 

R*3 

N.P. 

RffC 

K*8 

N.K. 
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v:  v*,t»  ti  %  •  *^S^£?rU,^J?ii!j  ~ 


I 

I 

I 

I 

! 

I 

1 

I 

1 

1 

I 

I 

I 

I 

1 

I 

1 

I 

l 


I  «Htl  »in#  l  >■«  inno  .  ....  .  .  -- 

-  -  '  "  l»«fV  »VV  L  AOCL  AUUH  KAot  005 

1  000?.'?  2  0jQ2CA 

•  OPTIONS  IN  EFFECT*  •  JkMt  *.  MAI N.UPT «02 * L  INECNT*  5e, S 1  Jf>0323Kt 

•  OPTIONS  IN  EFFECi*  SOURCE •£ BCOIC.N.,11 STtNUOtC*1 « 10*0 .MAP.NJECI  T,  I O.NoXREr 

•  STATISTICS*  SOURCE  ►  'HEN'S  ^  59  .PROGRAM  SHE  •  750 

•  STATISTICS*  NO  0!  AGtw  „  <  ICS  GENE*  ^Tf  .1 

•*••*•  FN0  °f  COMPILATION  •*•*•*  6Jr  If  5  OF  CORE  NUT  USED 

•  153  - 


LEVEL  10  <  SEPT  69  1 


U)  /  )OU  ruKii\Nn  n 


ft*TJ 


ISN  0003 
ISN  0004 
ISN  0005 
ISN  0006 
ISN  000? 
ISN  0008 
ISN  0009 
ISN  0010 
ISN  0011 
ISN  0012 


ISN  0014 
ISN  C015 
ISN  0016 
ISN  C01? 
ISN  0018 
ISN  0019 
ISN  C020 

ISN  0021 
ISN  0022 
ISN  0023 
ISN  0024 
ISN  0025 


U6R  OPTIONS  -  NAME-  MAIN,GPT«02,LlNECNt «58,S!ZE*OCOOK, 

SOURC6,e6CDIC,NOU5T,NOOECA,LOAO.MAP,NOEOlT,lO,NOXRlF 
SUBROUTINE  EOIT 

C 

C-USES  SINT 

C'— THROW  OUT  OOPPlfRS  BELOw  7.5  OEc  AS  LL’VO  AS  4  OUPPcfcR  REGAIN 
C 

00U8LE  PRECISION  TAM,WA7fc ,C VCC.EF KQt^MGE ,X0$U,ZO$0 
OOUBLE  PRECISION  ONE,  HO,  J  MkE ,  F IVE.ATE. f cN,060,MUN0,C48 J,$7P5 
DOUBLE  PRECISION  TOPI ,OTRA,OIOM, T«| ,TM4, T HS, TM8,CKT R, CKRH 
DOUBLE  PRECISION  ZERO, FOUR, TM7,C2*»C2M, REF C 

OOUBLE  PRECISION  OJP.REF.XS, Y$ ,ZS» ELAT , ELON, GeOH, ST 1H, m£AU, RATE 
DOUBLE  PRECISION  DTK, T P ,XNUT , SOME, SUMO*  E  *  AO, CONE ,f  OHO, C I , XL MS 
OOUBLE  PRECISION  0UMI,UUM2,S1 ,0F  ST  ,DUM3,0UM',,0UH5 
OOUBLE  PRECISION  OL AT ,OLuN, SMXE, SELV, FL A T ,riON,FFRQ,RSU, VN 
OOUBLE  PPtClSlON  T.TEMP 
OO'ift*  ».  PRECISION  EE, EB 
C 

C— DIMENSIONS 

OIHtNSION  00P16»,REH0),XSJ91,YS(9I,2S(  1 1 1 , OLAT l 9) ,0L3NI 9) 

C 

C - COMMON 

COMMON  TP,XNOT,SOME,SOMO,E,AU,COHE,LUMD,CI,XLMC 
COMMON  0UH1,0UM2,SI ,OFS?  UUM3, UU*4 , DUM5 , POP 
COMMON  RfF 

COMMON  XS.YS,2S,0TK,  ELAT, ElON.'.fcJH, HI  A'J. RATE,  lOAV.MOAY.STiH 
COMMON  OLAT,OLONtSHXE,SELV,FLAT,FLUN,FFRQ,RSQ,vN 
COMMON  I,J,K*L»M,N,NDOP, IT£K 
COMMON  T, TEMP, EE , £8 
C 

COMMON  /COMC/NULL, IONt, ITaC, 1  FUR  1 15, 130, I  365  *  IN, KM ,Kf 
COMMON  /COMC/TAW,mAvE,lVCG,EFRQ,UHCE,XOSQ,20SO,2ERO 
COMMON  /C OMC/ONE *  TWO, TMRE, FOUR, FIVE ,ATE , TEN,060,HUN0 
COMMON  /CCMC/C480,S7P5,T0Pl,DTRA,Ur0M 

CO-MON  /COMC/TMl,TM4,TM5,TM7,lM8,C‘lIR,CARM,C2K,C2M,ReFC 


ISN  0026 
ISN  0027 
ISN  0028 
ISN  0029 
ISN  0030 
ISN  OOM 
ISN  0032 
ISN  0033 
ISN  0034 
ISN  0035 
ISN  0036 
ISN  0037 
ISN  0038 
ISN  0039 
ISN  0040 
ISN  0041 
ISN  0042 
ISN  00** 3 
ISN  0044 


l*ItUE 

J*KM 

1  IF  (NDOP- IFOR  111,11,2 

2  K*I 

CALL  SLNT 
EB-SELV 

K»J 

CALL  SLNT 
EE*SELV 

IF  (EE-S7P5I  4,4,5 

4  IF  IEE-ESJ  7, T, 5 

5  IF  (E6-S7P5I  6,6,11 

6  L-l 

I  •* I  ♦ICNE 
CO  TO  8 

7  L-J-IONE 
J*L 

8  IF  (OOPILII  9,10,9 

9  OOPILJ.ZEPO 


ISN  0045 
ISN  0046 
ISN  0047 
ISN  0048 


NDOP-NOOP-IONE 
to  CC  TO  1 
11  RETURN 
ENO 


Slli  OF  PROGRAM  J00192  nfcAAOEC  ] HAL  BYTES  PAGE  003 


$LNT  $f  *F 


f  YP£ 

A  tf>. 

1*4 

0002F8 

J*% 

N.R. 

ft  «g 

N.R. 

1*4 

N.R. 

*•8 

N.R. 

R*« 

N.R. 

R*e 

N.A. 

k»o 

N.R. 

R*B 

N.R. 

3*8 

N.R. 

ft*6 

N.R  . 

P*B 

N.R. 

K«B 

N.R. 

R*6 

N.R. 

w*y 

N.R. 

R«B 

N.R. 

R*8 

N.R. 

I  *4 

000004 

1*4 

N.K. 

k*o 

N.R. 

R*4 

000000 

R«a 

N.R. 

R#6 

N.R. 

R*e 

N.R. 

E  003 

TYPE 

A  00. 

1*4 

000300 

R*8 

N.R. 

R*8 

J00328 

R*0 

N.R. 

R*8 

N.R. 

P*8 

N.R. 

1 

N.R. 

R*e 

N.R. 

R*B 

N.R. 

R*0 

N.R. 

R*8 

N.R. 

R*8 

N.R. 

R*e 

N.R. 

R*4 

C00078 

ft  *8 

N.R  • 

k*8 

N.R. 

1*4 

N.R. 

1*4 

N.R. 

1*4 

N.R. 

R»8 

N.R. 

R*8 

N.R. 

R*8 

N.R. 

R*8 

N.R. 

RP  8 

N.R. 

COMMON  INFORMATION 


NAME  OF  CO'.rON.BCOCr 
At.  NAME  I rP6  PfL.  A 


SIZE  OF  bLOCK  000338  HEXADECIMAL 


VAP.  NAME  TYPE  RtL .  AQOR. 


VAR.  NAME 
SOME 
COME 
0 ON* 
0UM3 
REF 
OTK 
MEAD 
STIN 
SElV 
R  SO 
K 

•‘.OOP 

EC 


TI!!  kU*  A00K-  var-  NAME  TYPE  BEL.  AOOR. 


NAME  of  common  block  •  c 
VAR.  name  Type  rel.  AOOR. 

NULL  J*4  N.B. 

U5  1*4  N.p. 

•’*  1*4  000020 

CVCG  n.R. 


SIZE  Of  BLOCK  000128  HEXADECIMAL  BYTES 


TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

REL  •  A 

1*4 

000004 

17*0 

1*4 

N.R 

1*4 

N.R. 

1365 

I  *4 

N.R 

i  *4 

N.R. 

T  am 

B«e 

N.R 

R*8 

N.K. 

ONCE 

**a 

N.R. 

VAR.  NAME  TYPE  REL.  AOOR. 
IFOR  1*4  OOOOOC 

IN  I  *4  n.R. 

NAVE  «*8  N.ft. 

*CSO  R*8  N.R. 


ZOSO  R*8 
thre  R*a 

TEN  fl*8 
STPS  ^*0 
TUI  ft«S 

TM0  R  *  fl 
C2M  R«8 


ZERO  R08 
FOUR  R*-d 

060  RPfi 
TOPI  R*8 
TM4  K*fl 
CMTR  R*Q 
REfC  R*fi 


LAdEL  Ai)OR 


1  0000A8 

6  000114 

10  0001 6 1. 

•OPTIONS  IN  EFFECT* 

•OPTIONS  IN  EFFECT* 

•STATISTICS'1  SOURCE  STATU 

•STATISTICS*  NO  DIAGNOSTICS  Gi  Nt 

•***•*  £►  0  OF  COMPILATION  •*••*• 


2  OJOObe 
7  U0012C 

II  OOOloE 


4  000OFH 
6  300140 


00410** 

00015? 


NAME  *  4A!S(OPI-O2*LIM.„M»5d*SUt.*JJ00l'  , 

SCUPlE  *f  sniC,NJLlST  ,  NJbtC<  iL'jAbt  4AP  ,  NUt  01  T  t  10  »NGXRFF 
47  , PkooRAM  ilZt  *  40? 

T*0 

614  BYTES  OF  CuRc  NjT  USED 

-  130  - 


S 


'*>  \ 

+  *  i 


LEVEL  IS  {  SEPT  49  ) 


OS/360  FORTRAN  H 


OATE  70,196/10.54.41 


i 


{ 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


COMPILER  OPTIONS  -  NAME"  MAIN, 0Pr«02,LlNECNT«S8,$I ZE-OOOOK, 

SOURCE, EBCOIC, NOLIST, NODECK, LUAO.MAP.NOEOIT, ID, NOxREF 


1SN 

0002 

C 

SUBROUTINE  ALAT 

ALRT 

alrt 

c- 

USES  AVIS  WHICH  UVES  SLNT  AND  SXYZ 

ALRT 

C 

ALRT 

ISN 

0003 

DOUBLE  PRECISION  TAW, WAVE ,CVCG,EFRO, OMCE .XOSQ.ZOSQ 

ALRT 

ISN 

0004 

DOUBLE  PRECISION  ONE, IwO,THR£,FI VEtATE, TEN,060,HUND,C480,S7P5 

ALRT 

ISN 

0005 

DOUBLE  PRECISION  TOPI ,DTRA,DTOM, TMl ,TN4, T M5,TN8,CMTR,CKRM 

ALRT 

ISN 

0006 

DOUBLE  PRECISION  ZERO, FOUR, TH7,C2K,C2M,REFC 

ALRT 

ISN 

0007 

DOUBLE  PRECISION  OOP, XS,Y$,ZS, ELAT, ELON.GEQH, STIM.HfcAO, RATE 

ALRT 

ISN 

0008 

DOUBLE  PRECISION  DTK, TP, X NOT ,$UME ,SGMU, E,AQ, COME, COMO, C 1 , XL MG 

ALRT 

ISN 

0009 

DOUBLE  PRECISION  0UN1,DUN2,S! ,0FST,0UM3,0UM4,DUM5 

alrt 

ISN 

0010 

DOUBLE  PRECISION  DLAT,OLON, SHX£, SELV* FLAT, FLON, FFRQ.RSQ* VN 

ALRT 

ISN 

0011 

DOUBLE  PRECISION  T, TEMP, A 

ALRT 

ISN 

0012 

DOUBLE  PRECISION  OCX, OAK, UNA 

ALRT 

ISN 

0013 

DOUBLE  PRECISION  OUM 

ALRT 

ISN 

0014 

DOUBLE  PRECISION  AELV 

alrt 

ISN 

0015 

C 

DOUBLE  PRECISION  TO  .RISfc.XMIN 

ALRT 

ALRT 

C- 

— ‘DIMENSIONS 

ALRT 

ISN 

0016 

DIMENSION  OOP(8),/S(9), VSI9I,ZS(11 ) *DLAT( 9j,0L0N( 9) 

ALRT 

ISN 

0017 

C 

DIMENSION  DUMI 5) ,A( 3,41 

ALRT 

ALRT 

ISN 

0018 

C" 

— C( 

’cGMMON  TP.XNOT, SOME. $QM0,r, AO. CURE, COHO, CI.XLMG 

ALRT 

ISN 

0019 

COMMON  DUMi,OUM2,Sl,OFST,OUN3,OUM4,OuH5,OUP 

ALRT 

ISN 

0020 

COMMON  DEK,OAK,UNK,OUM 

ALRT 

ISN 

0021 

COMMON  XS,YS,2S,D1K,ELAT ,ELUN,CEOh, HEAD, RATE, IOAV.NDAV , ST  IN 

/L4T 

ISN 

0022 

COMMON  dlat,olon,$mxe,selv,flat,flon,ffrq,rso,vn 

ALRT 

ISN 

0023 

COMMON  I •J,K,L,M,NtNOOP,ITER 

ALRT 

ISN 

0024 

COMMON  T,TEMP,A 

ALRT 

ISN 

0025 

c 

COMMON  TO  ,RISE,AELV,XM1N 

ALRT 

ALRT 

ISN 

0026 

COMMON  /CONC/NULL.IONE.ITW'U. IFOR, 115, 130, I?“-  ,  I M,KH,KF 

ALRT 

ISN 

0027 

COMMON  /COMC/TAW, WAVE,CVCG, £FRQ,>0MGE,X3SQ*  „0,Z£R0 

ALRT 

ISN 

0028 

COMMON  /COMC/ONE, TWO,THRE,FOUR,F IVt*ATE,TEN,D60,HUNO 

ALRT 

ISN 

0029 

COMMON  /COMC/C480,S7P5,TOPI,DTRA,OTOM 

ALRT 

ISN 

0030 

c 

COMMON  /C0MC/TMl,TM4,TN5tTM7,TM8,CMrR,CKRM,C2K,C2M,R£FC 

ALRT 

ALRT 

ISN 

0031 

EQUIVALENCE  I ISTP.NDOP) ,1 IELV, 1TERI 

ALRT 

ISN 

0032 

l 

FORMAT  I1HI,3HDAY,3X,4HRISE,3X,4HELEV) 

ALRT 

ISN 

0033 

1STP-MDAY-IDAY 

ALRT 

ISN 

0034 

IF  (ISTPI  2,13,3 

ALRT 

ISN 

0035 

2 

ISTP-ISTPM365 

ALRT 

ISN 

0036 

3 

TO-T-I8,0D0 

ALRT 

ISN 

0037 

T»TO-TEN 

ALRT 

ISN 

C036 

WRITE  C 6, 1) 

ALRT 

ISN 

0039 

4 

T«T*TEN 

ALRT 

ISN 

0040 

CALL  AVIS 

ALRT 

ISN 

0041 

IF  (SELV)  4,4,5 

ALRT 

ISN 

0042 

5 

T.T-TIN 

ALRT 

ISN 

0043 

6 

T-TMWO 

ALRT 

ISN 

0044 

CALL  AVIS 

ALRT 

ISN 

0045 

IF  ISfLVl  6,7,7 

ALRT 

pace  tor 


ISN  0046 

7  rise»stim*t-to 

ALRT 

ISN  0047 

8  AELV-SUV 

ALRT 

ISN  0048 

T»r *2. 5D-1 

ALRT 

ISN  0049 

CALL  AVIS 

ALRT 

ISN  0050 

IF  ISELV-AELV)  9,8,8 

ALRT 

ISN  0051 

9  CALL  ARCS  CAELVI 

ALRT 

ISN  0052 

!6LV*AELV 

ALRT 

ISN  0053 

I-RISE/DTOM 

ALRT 

ISN  0054 

K>I ♦tOAY 

ALRT 

ISN  0055 

IF  (K-I365)  11,11,10 

ALRT 

IM  0056 

10  K*K-1 365 

ALRT 

ISN  0057 

11  TEMP-I 

ALRT 

ISN  0059 

rise»rise-dtom*temp 

alrt 

ISN  0059 

TENP'B I SE*CMTR 

ALR*. 

ISN  0060 

CALL  UCCN 

alrt 

ISN  0061 

WRITE  (6,12)  K ,L«M, IELV 

alrt 

ISN  0062 

12  FORMAT  ( 1H,I3,3X,2I2,4X,12) 

ALRT 

ISN  0063 

IF  (I-ISTP)  4,4,13 

ALRT 

ISN  0064 

13  RETURN 

ALRT 

ISN  0065 

END 

ALRT 
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I 


I 


r 


I 


/  AlKI  /  SlZt  OF  PROGRAM  C0J310  HEXADECIMAL  BYTES  PAGE  003 


^AMf 

TAG 

TYPE 

AOO. 

NAME 

TAG 

TYPE 

AOO. 

NAME 

TAG 

1YPE 

ADO. 

NAME 

TAG 

TYPfc 

AOO. 

A 

C 

««8 

N.4. 

E 

C 

R*8 

N.R. 

I 

SF 

C 

I* 

0002F8 

J 

C 

1*4 

N.k. 

K 

Sf 

C 

1*4 

OOOaOO 

L 

F 

c 

1*4 

000304 

M 

F 

C 

1*4 

000308 

N 

C 

1*4 

N.R# 

T 

Sf 

C 

k*8 

000318 

AO 

c 

K*9 

N.R. 

Cl 

C 

R*8 

\.k. 

IN 

C 

1*4 

N.k. 

Kf 

c 

1*4 

N.ft. 

KH 

c 

1*4 

N.R. 

SI 

c 

R*8 

n.  k. 

TO 

SF 

C 

R*8 

000388 

TP 

c 

R*e 

N.R. 

VN 

c 

R  *8 

•N.R. 

XS 

c 

ft*d 

N.K. 

YS 

C 

R*0 

N.k. 

ZS 

c 

R*6 

N.R. 

ATfc 

c 

R*d 

N.R. 

C2k 

c 

K*d 

N.R. 

C2N 

C 

a*8 

N.R. 

OAK 

c 

R*8 

N.R. 

OtK 

c 

R*8 

N.R. 

ONK 

C 

K*b 

N.R. 

OOP 

C 

k*8 

N.R. 

dtn 

c 

R*8 

N.R. 

p*jm 

»  *d 

N.R. 

060 

C 

P*d 

N.k. 

115 

c 

1*4 

N.R. 

1  30 

c 

!*4 

N.P. 

ONE 

c 

K*8 

N.R. 

RSC 

c 

k*b 

N  .R. 

TAtt 

c 

R*8 

N.R. 

TEN 

f 

c 

R  *8 

000098 

I  Ml 

c 

k*e 

N.P. 

TM4 

c 

k*6 

N.k. 

TH5 

c 

ft  *8 

N.R. 

TM7 

c 

c*e 

N.R. 

TM8 

c 

k*a 

N.R. 

TkO 

F 

c 

R*8 

000070 

AELV 

Sf  A 

c 

R*8 

000398 

ALRT 

R  */- 

oococc 

ARCS 

SF 

Xf 

R*4 

OQOOOO 

AVIS 

SF 

XF 

R*4 

000000 

CKRM 

C 

ft  *8 

N.R. 

CMTR 

f 

c 

f>*8 

cooico 

COMO 

c 

P*d 

N.R. 

CUMf 

c 

R*8 

N.  k. 

CVCG 

c 

k*8 

.-.R. 

C4b0 

r 

R  *8 

N.  R. 

OLAT 

c 

K*8 

N.k. 

OLON 

c 

R*6 

N.k. 

OTOM 

F 

c 

R*8 

000000 

CTRA 

c 

R*8 

N.R. 

Dun  1 

c 

R*b 

N.R. 

0UM2 

c 

R*b 

N.k. 

0UK3 

c 

R*8 

N.A. 

COM4 

c 

R*8 

N.R. 

OuM5 

c 

K*N 

N.R. 

f  FRO 

c 

R*8 

N.k. 

ELAT 

c 

ft*8 

N.P. 

FLON 

c 

K*8 

N.  ~. 

FfkQ 

c 

k*8 

N.k. 

FIVE 

c 

R*8 

N.R. 

FLAT 

c 

k*e 

N.R. 

flon 

c 

R*8 

>!•  P  « 

FOUR 

c 

R*d 

N.R. 

GEOH 

c 

K*b 

N.R. 

HEAO 

c 

R  *8 

N.R. 

HUNO 

c 

R*d 

N.P. 

I  DAY 

F 

c 

1  *4 

0o0220 

ILL  V 

SF 

Cc 

1*4 

000314 

If  OR 

c 

1*4 

N.R. 

10  .f 

c 

1*4 

N.R. 

I  STP 

SF 

CL 

1*4 

0003i0 

ITER 

CE 

1*4 

000314 

I TUO 

c 

1*4 

N.k. 

I  365 

F 

c 

1*4 

000018 

MOAY 

F 

c 

1*4 

O0u..4 

•NOO* 

CE 

1*4 

000310 

NULL 

c 

1*4 

N.k. 

OF  ST 

c 

R*d 

N.R. 

OMGE 

c 

R*e 

.N.R. 

RATF 

C 

k*6 

N.R. 

REFC 

c 

ft*8 

N.R. 

RISE 

SF 

c 

P  *8 

000390 

SeL  V 

F 

c 

a*« 

0002C8 

SHXE 

C 

x*a 

N.R. 

SOHO 

c 

R*6 

N.R. 

SUMfc 

c 

R*d 

N.R. 

SUM 

F 

L 

R*b 

000228 

S7P5 

C 

R«d 

N.k. 

TEMP 

SF 

c 

R*8 

000320 

TmRE 

c 

R*U 

N.R. 

TOPI 

c 

R*b 

N.R. 

UCQN 

SF 

XF 

*t  *4 

000000 

NAVE 

c 

k*e 

N.R. 

XLMG 

c 

C*8 

N.R. 

XM  IN 

c 

R*6 

N.R. 

XNOT 

C 

R*b 

N.K. 

XOSQ 

c 

k*8 

N.R. 

Zf  «0 

c 

P*8 

N.R. 

ZOSO 

c 

R*8 

N.R. 

ItJCU" 

f 

XF 

k*4 

000000 

COMMON  INFORMATION  •*••• 


NAME  OF 

CSMMLN 

HLOCR  * 

*  SIZE  C 

F  8tOC 

K  0003A8 

HEXAOtC IMAL 

BY’ES 

VAR.  NAME 

TYPE 

RCL.  AO Oft. 

VAR.  NAME 

TYPE 

R£L.  ADD*. 

VAP.  NAME 

TYPt 

KfcL.  AOOK. 

VAR.  NAME 

TYPt 

REL.  AOOR. 

TP 

K*e 

N.P. 

XNOT 

R*d 

U«  ft. 

SOME 

R*8 

N.K. 

S‘>M0 

k*6 

N.R. 

fc 

R*8 

N.R. 

AO 

R*8 

N.ft. 

COME 

k*6 

N.  k. 

COMO 

k*8 

N.K. 

Cl 

R*8 

N.R. 

XLMG 

R*B 

N.k. 

0UM1 

R*8 

n.k. 

0UM2 

R*6 

N.R. 

SI 

R*fl 

N.P. 

OF  ST 

k*8 

N.K 

00  M3 

R*8 

N.k. 

0UM4 

k*8 

N.R. 

OUM* 

R*S 

N.R. 

OOP 

R*d 

N.ft. 

OEK 

R*  H 

N.  R. 

OAK 

R*8 

N.R. 

ONK 

P*b 

N.R. 

DUM 

K*8 

N.  ft. 

XS 

R*8 

N.R. 

YS 

R*8 

N.R. 

7S 

R*3 

N.R. 

DTK 

k*d 

N.ft. 

ELAT 

R*0 

N.k. 

ELON 

k*8 

N.R. 

GEOH 

R*b 

N.R. 

HEAU 

R*8 

N.R. 

RATE 

R*  8 

N.k. 

I0AY 

1*4 

000220 

»*OAV 

1*4 

000224 

sum 

R*0 

000228 

DLmT 

R*8 

N.R. 

OLON 

R*8 

N.R. 

SMXE 

R*0 

N.R. 

SEL  V 

K*8 

0002C8 

FLAT 

R*8 

N.K. 

FLON 

R*6 

N.R. 

FrkO 

ft*9 

N.R. 

RSO 

k*b 

N.k. 

VN 

R*8 

N.R. 

I 

1*4 

0002F8 

J 

2*4 

N.P. 

K 

1*4 

000303 

L 

1*4 

0U0304 

M 

1*4 

000306 

N 

1*4 

N.P. 

NOOP 

I**. 

000310 

ITER 

1*4 

000314 

T 

K*6 

000316 

T£MP 

R*  rt 

000320 

A 

R*8 

N.  ft. 

TO 

R*8 

000388 

RISE 

R*  8 

000390 

AELV 

R*C 

0003CB 

XMIN 

R*8 

N.P. 

fCUlVAlENCEO  VARIABLES  hlTMTN 

THIS  COMMON 

BLOCK 

VAR  1 ASL  £ 

tT 

VARIABLE 

OFFSE 

. 

VARIABLE 

OFFSET 

VARIABLE 

OFFSET 

I  STP 

000310 

IELV 

000314 

i 

I 


g 


PACE  004 


NAME  OF  COMMON  BLOCK  *  COHC*  SIZE  01  BLOCK  000126  >!f  XAOEC IMAL  BYTES 


,1 


,  NAME 

TYPE 

REL.  AODR. 

VAR.  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

REL.  mOO° • 

VAR.  NAME 

TYPE 

KEL.  ADI 

t.ULL 

1*4 

N.R. 

I  ONE 

1*4 

N.R. 

1TN0 

1*4 

N.R. 

IFOR 

1*4 

N.R. 

115 

1*4 

N.R. 

130 

1*4 

N.R. 

1365 

1*4 

000018 

IN 

1*4 

N.R. 

1*4 

N.P. 

KF 

1*4 

N.K. 

TAM 

R*S 

N.R. 

VAVE 

R«e 

N.R* 

CVCG 

R*8 

N.R. 

EFRO 

R*8 

N.K. 

OMCE 

R*9 

N.R. 

XOSO 

R*8 

N.R. 

ZOSQ 

K*8 

N.R. 

ZERO 

R*« 

N.K. 

ONE 

R*8 

N.K. 

TWO 

R*8 

000070 

TH.  E 

R*8 

N-R. 

FOUR 

R*8 

N.R 

FIVE 

R*8 

N.K. 

ATE 

R*8 

N.R. 

TrN 

R*8 

000098 

OfO 

R*3 

N.K. 

MONO 

R*8 

N.R. 

£480 

R** 

N.R. 

S  ?P5 

R*b 

N.R. 

TORI 

R*B 

N.K. 

OTRA 

R*e 

N.R. 

OTOM 

R«8 

oooooo 

rni 

R*a 

N.R. 

TM4 

K*b 

N.R. 

TM5 

k*e 

N.R. 

TMT 

R*8 

N.R. 

TM8 

R*8 

N.R. 

CMTR 

R*  6 

OOOICO 

CkKH 

R»e 

N.k. 

C2K 

R*8 

N.R. 

C2M 

R*8 

N.R. 

REFC 

K*d 

N.R. 

LAt*fl  ADO* 

3  OOGUO 
1  000 l AC 
11  000256 


?  0001 10 
6  0001  AO 

40  000254 

♦CATIONS  *n  EFFECT* 

•OPTIONS  IN  EFFECT* 

•STATISTICS*  S3UPCE  STATEMENTS  * 
•STATISTICS*  NO  DIAGNOSTICS  GfNfkAUO 

••••••  CNO  If  COMPILATION  •••••• 


LA3f.  A'JUP 
4  00014C 

e  oooi sc 

13  0002EC 


NAME-  MAlN,OPT-02,llNECNI-5d,SWt»3000K, 

SCJPC 1 1 cfaCDIC • NJL 1ST  «NuOtCA , LuAJ , MAP .NOE 01 T- | O.NOXKtf 
64  ,F»OGKAM  SUE  «  704 


L  At)  t  L 
5 


000170 

000  Uf 


61IS  1YTES  Uf  CUKE  NOT  U:>EO 


-r 

i 

I 

1 

I 

I 

I 

I 

I 

I 

I 

f 

I 


I 

i 


tw?! 


^.trOUTIkc  AVIS 


*J*oLt  ?«tdvlO-  **.,  AO'.h#ijJW 

wtbi“  l*trS,U*kkA,*  *Cr.#ir.',.n..  o.ta:»,Cfckfl 

-<“•«  mU&XO.  *Uu,r^,^7#t^,v<J<l#iuC 

^  tt  1‘T'iv  *'  ^****>— #^.*t-*oa&,t,*o.coij6#cori».cx#At.iu 

OO.cAE  PrEtJSlOA  i-EA*  #  :»?<*&«  Si.LV,}  ».AT,  t  .  h  ,t  l  ,  it. 

UOluU  PfrEclSIOJ.  l,lt»p,A  W'  W# 

isiuM.  rprcisio-  ro 

ItOwuLi  PPiCXS'UJ.  oungU+t  tvbt 
L 

»  '-  <’’)  .4.<t11,  .k.AS  (,)  ,(.,.<*  (V) 

kl.  L.I^ION  n(j|<«) 

c 

t— COV.oJ. 

CCr.r.OA  T*,  X!»OT i#*o, CO* E,cO 
{ cabok  i>y ». ; ,  1 1 s* ,  a .» #  of  j  r ,  j « ». 3 ,  o t,  *.•«  #  u  1  *  s  ,  00  p 
CO*  fc.UN  »/i*  #  I/AK  #i*2»A,  OJ  * 

5’f£4Ji£  ^{^•iS»,,t‘i>»^i*^^i-^»aL»t,0tkS4.0lyA\0fM0S7lt 

tt).,rxs  i*.AT,f  LCA.M  ► 

CtfifON 

tc*r.o£ 
ccr.rxN  to 
c 

COJfiOA  /tOftC/T«*,fcAVi,cKv#,fcH'*,Uft3E,IC:,,/,EOSw,AcliO 
LCl&bU  /CCflC/ON<.,T«O#TByt#AXtF.HVi.Art,IiU,u60,:>UWA 
C CT.T.'jU  /CO•'.(;/C4o^,,^7PS/TO»,I#l»T«A#t*10,' 

C.OSKOA  ✓CoSC/TK1,If«,#TS5#IB7,IM,Cf.T*..Ut«if,t^#L^#Ptit 

C-t^ES  SZ.AT  ANy  SxXZ  «ti  ylAi  Oi  ELtVATIwi  Akt>U 
A'JCAL 
DiK*Z£f«0 
*AXi’2£KO 
*>>■***.£*•  C 
CALI  Sill 
CALL  SLK7 

«e:uka 

i>L 


i  AOf  CvM-  1 


FCfcTfcAV 

XV  0  LtVEL 

16 

AVIV 

DATt  «  7018? 

1  l/UO/lto 

PACE 

0002 

coaaon  oCjca  / 

/  HAP 

SIZE  J80 

SlflBOL 

LOCATION 

SIfJBOL 

LOs-AIIvV 

siabOL 

LOCATION 

SinbOL 

LOCATION 

vlflBOL 

LOCATION 

TP 

0 

INDT 

o 

vont 

10 

SURD 

18 

E 

20 

AO 

id 

COSE 

JO 

LOAD 

SO 

Cl 

40 

XLnc 

4b 

OUnl 

SO 

DQfl2 

SB 

SI 

60 

OFST 

bb 

oun3 

70 

DU  34 

78 

DUflS 

oC 

COP 

00 

DtK 

C8 

DAX 

l>0 

0NK 

0  4 

du  a 

£0 

xs 

106 

IS 

ISO 

zs 

ivb 

DT* 

IPO 

ELAT 

IFo 

tLUV 

200 

GfcCd 

208 

HEAD 

210 

KATE 

^18 

XDAT 

220 

SCAT 

U* 

sun 

228 

OLAT 

2  30 

010* 

<.lo 

SJUE 

2C0 

vELV 

2Cb 

FLAT 

200 

FLO* 

2DB 

FJBQ 

2E0 

2  to 

Vk 

2PC 

X 

2F8 

J 

21L 

K 

300 

L 

JC«* 

3 

30b 

V 

30C 

NOUP 

i  10 

ITEB 

j:** 

r 

31o 

Tta? 

320 

A 

326 

TO 

3od 

cc^aoj 

DLU^.\ 

/tone  /  sap 

SIZE  Uo 

VI IbOL 

LOCATION 

viibo*.  Lj« 

.«T1jV 

vinooL 

LOCATION 

vinroL 

LOCATION 

SISoOL 

LOCATION 

NULL 

0 

XoSE 

„ 

1T*0 

o 

1XCN 

c 

2  IS 

10 

I  JO 

14 

*3  . 

16 

in 

1C 

MI 

20 

X/ 

2-* 

Lm» 

2o 

•aye 

Jt 

tVU 

3o 

tFKW 

40 

OSOa 

*3 

/  l*'*w 

sC 

ZCvy 

30 

ZENO 

6U 

ONE 

68 

1.0 

7  J 

Tii82 

7a 

FOUR 

cl> 

fiv£ 

68 

AIL 

70 

*  LV 

AC 

auvo 

•  0 

C4b0 

60 

S7?S 

bz 

TOPI 

CO 

Jill 

»  0 

LTon 

DU 

*n  1 

Db 

IP4 

„C 

TrtS 

1 6 

.  37 

Ft, 

Tne 

Jo 

cm* 

IOC 

•~KFfc 

108 

Ui 

1 10 

c*a 

lie 

8tiC 

nu 

ji  1JO*. 

LCcAliok 

sCaPa.«j<t*  6»  titbvtX 

VlStsCL  LoCA11j3  VISbUL 

LOCATION 

SXV.cOL 

LOCATION 

siaboL 

Cut  *7ION 

VA  (2 

9o 

SLkT  'VC 

•UPT.JkV  IV  LilrU-i* 
•OiillAS  Iv 
•vTAXlSIlC'v* 
•alASISTlCS* 


ID,  EacDIC,  al,  kODaCK, LOAD, SAP 

VAP.L  *  AVIS  ,  „i.*i*.»>T  *  S» 

SOUkCE  jTArtrti.VTj  t  »S,PfCDAAr.  SiZb  ' 

VO  DXASVOvTICS  6lV-mktLV 
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Jii! 


I 

I 

1 


I 

I 

I 

I 

I 

I 

I 

I 


| 


IJ>*. 1 J  •'•  ■'  >-“-1-  -  M'  <•*'-'  H-AKUW 


J i / JOU  t JK I <AH  M 


CONPILFR  OPTIONS  -  NAME*  KAlN.UPI «02 ,LlNfcCNT *66.$ I2E-OQOOK. 

SOURCE  .EBCDIC.  NOLI  SI.  NJDECK.IOAO.MAP.NUEOIT, TO.NOXREF 


ISN  0002 

SUBROUTINE  ARCS  < ARC) 

ARCS 

ISN  0003 

DOUBLE  PRECISION  ARG.X 

AkCS 

ISN  0004 

X-.50*0 

ARCS 

C— THE  ACCURACY  IS  PC  PENDENT  UPON  TmE  NUMBER  UF  ITER  HONS 

ARCS 

ISN  0005 

oO  1  I  *  1  #  6 

ARCS 

ISN  0006 

1  X*X*t  ARC-OSSNIXD/DCOSIXJ 

AkCS 

ISN  0007 

ARG«X*. 5729577951 310*2 

ARCS 

ISN  0008 

RETURN 

ARCS 

ISN  0009 

END 

ARCS 

OAT  E  70.196/18. S 


4.52 


A*c$  / 


Size  Of  PPUGftAM  000166  HiXAOlClHAl  bYlES  PAGE  002 


t 


■i 


i 

i 

I 

I 

I 

I 

I 

1 

i 

i 

1 

I 

I 


IMfl  ADDk  LAbH  AGUK  LABEL  A0DP  LAuU  A^0« 

1  OOOOOC 

•OPTIONS  IN  EfFFCT*  NAME*  MAIN, OPT«U2,L lNlCNT«5d#S Wt'COUO*. 

•  OPTIONS  |N  fcffECT*  SOURCE. EHCOIC *NJL I  ST *NOUEC*#LOA0.HAPt NOEOIT , 10, NUXPEC 

•  STATISTICS*  SOUPCt  STATEMENTS  •  b  ,  PkjG'^AM  SUt  •  558 

•  STATISTICS*  NO  DIAGNOSTICS  C»f Nf KAT£0 

••••••  (NO  Of  COMPILATION  •*••••  *5*  bTTtS  Cf  OOKt  SjI  jSEO 

-  1GS  - 


I'AOt 


yj3 


I 


T 

1 

I 

I 

I 


LEVEL  18  (  SEPT  69  )  OS/360  FORTRAN  H  DATE  70.  *96/18.53. 59 

COMPILER  OPTIONS  -  NAME*  MAIN»CPT*02,L I9ECNT*58, SIZE-000011# 

SOURCE  *E BCD! C, NOLI ST, NODE CR.LOAO, MAP, NOEDIT • I0.NOXREF 


1SN 

0002 

SUBROUTINE  TYPE 

TYPE 

C 

TVPE 

1SN 

0003 

DOUBLE  PRECISION  TAW, WAVE, CVCG.EFRQ.QMGE.XOSQ. ZOSO 

TYPE 

ISN 

0004 

DOUBLE  PRECISION  ONE, TWO, TMRE ,F 1 VE ,AIE, TEN,060,HUNO,C480,S7P5 

TVPE 

1SN 

0005 

DOUBLE  PRECISION  TOPI,DTRA,OTOM,TNl,TN4,rN$,TM0»CHTR,CKRN 

TVPE 

ISN 

0006 

DOUBLE  PRECISION  ZERO, FOUR, TM7 ,t2A.C2N,KEK 

TYPE 

ISN 

0007 

DOUBLE  PRECISION  OOP, REF. XS, YS, ZS, ELAT, ELON.GEDH, STIH, HEAD, RATE 

TYPE 

ISN 

0006 

DOUBLE  PRECISION  OTK, TP,ANOT,SONS,SQNO,E.AOtCONE»COMD,C!,XLMG 

TYPE 

ISN 

0009 

OOUBLE  PRECISION  0UM1,0UM2,S! ,OFST.OUM3,OUM4,OUN4 

TVPE 

ISN 

0010 

DOUBLE  PRECISION  DLAT.OLON, SMXE ,SELV» FLAT, FlON.F FRO, RSQ.VN 

TVPE 

ISN 

0011 

OOUBLE  PRECISION  T, TEMP, A 

TVPE 

C 

TVPE 

ISN 

0012 

DOUBLE  PRECISION  E00T.Al.A2, A3, A4,A5 

TVPE 

ISN 

0013 

OOUBLE  PRECISION  TEMPI , TEMP2 ,TEMP3,S2LAT 

TVPE 

ISN 

0014 

OOUBLE  PRECISION  V, W.Ot ATS,CLUNS.C4P8 

TVPE 

ISN 

0015 

OOUBLE  PRECISION  T£MP4,TEMP5 

TVPE 

c 

TVPfc 

c 

TVPE 

c- 

—DIMENSION 

TVPE 

ISN 

0016 

DIMENSION  A(3,4| 

TYPE 

ISN 

0017 

01  MENS  ION  OOP<d),R£F|8),XSI 9), YS«9) ,ZSI 111 ,OLATI 9)«0L0N(9) 

TYPE 

c 

TVPE 

c- 

—COMMON 

TYPE 

ISN 

0016 

COMMON  TP, XNOT , SOME, SGMO, c, AO, COME  *  CUMO, C 1 , XL MG 

TVPE 

ISN 

0019 

COMMON  OUMl .DUM2.SI . OFST ,0UM3, 0UM4 , 0JM5 , OOP 

TVPE 

ISN 

0020 

COMMON  REF 

TYPE 

ISN 

0021 

COMMON  XS.YS.ZS.OtA. ELAT, EiON.GEOH.HEAO. RATE, 10AY.M0AY.STIM 

TVPE 

ISN 

0022 

COMMON  olat,olon,smxe,selv,flat,flun,ffrq,rsq,vn 

TVPE 

ISN 

0023 

COMMON  I.J.K.L.M.N.NOOP, ITER 

TVPE 

ISN 

0024 

COMMON  T, TEMP, A 

TYPE 

c 

TYPE 

ISN 

0025 

COMMON  /COMC/NULL , I ONE, I TwO, IFOR, I 15, 130, 1 365, IN, KM, KF 

TYPE 

ISN 

0026 

COMMON  /CCMC  / T Am,  WAVE  ,CvCG,  EfR^'.UMoE ,  ‘OSQ,  ZOSQ,  ZERO 

TYPE 

ISN 

002  7 

COMMON  /COMC/ONE.TmO, 7HRE, FOUR, FIVE, ATE, TEN ,060, HUNO 

TVPE 

ISN 

0026 

COMMON  /CCMC/C480.S7P5,TUPI,OTRA,DTOM 

TVPE 

ISN 

0029 

COMMON  /C0MC/TM1,TM4,Tm5,TM7,TM8,CMIR,CKRM,C2K,C2M,REFC 

TVPE 

c 

TYPE 

ISN 

0030 

EQUIVALENCE  (AI1,1),£D0T  ) 

TVPE 

ISN 

0031 

EQUIVALENCE  1 All ,3) .TEMPI! , 1 All ,4) ,TfcMP2) 

TVPE 

ISN 

0032 

EQUIVALENCE  t  *• 2, M , TEMP 31 , ( A( 2,2) ,S2LAT) 

TVPE 

ISN 

0033 

EQUIVALENCE  (A<2,3),V  f,iAi2,4I.M  I 

TVPE 

ISN 

0034 

EQUIVALENCE  1  At  3,1) .OLATS) ,:a(3,2) .OlONSl 

TYPE 

ISN 

0035 

EQUIVALENCE  (A!  3, 3),T£MP4), (AC  3,4) , TEMP 5) 

TYPE 

c 

TVPE 

ISN 

0036 

1*0 

TYPE 

ISN 

0037 

19  TEMP4-C (FFR0-£FRQ)/D60)*MUN0 

TYPE 

ISN 

0036 

T€MP5*fFfiO/2.4D*4 

TVPt 

ISN 

0039 

mRITE<6,110)  TEMP4.TEMP5 

TYPE 

ISN 

0040 

110  FORMAT !F7»1,F9.5) 

TYPE 

IS?' 

0041 

TEMP-SMXE 

TYPE 

ISN 

004? 

CALL  ARCS!  TEMP) 

TVPE 

ISN 

00 

MRlTEI8.ni)  TEMP 

TVPE 

ISN 

0044 

111  F0RMATIF5.1) 

TVPE 

PAGE  002 


ISN  0045 

TEMP-1 STIM*FOUR)*CMTR 

TVPE 

ISN  0046 

CALL  UCON 

TVPE 

ISN  0047 

MRITE(8,112)  L,H 

TVPE 

ISN  0046 

112  FORMAT! 12,12) 

TVPfc 

ISN  0049 

WRITE (8, 1 13)  NDOP 

TVPE 

ISN  0050 

113  FORMAT (121 

TYPE 

ISN  0051 

WRITE (8, 113)  ITER 

TVPE 

ISN  0052 

190  TEMP*! ! FL AY-cl AT)/OIRA) *060 

TVPfc 

ISN  0053 

TEMPI*! C l FLCN-ELON) -OCOSI FLAT) I/DTRAI-D60 

TVPfc 

ISN  C054 

TEMP3-FLAT/0TRA 

TYPE 

ISN  0055 

J*T£MP3 

TYPE 

ISN  0056 

TEMP3-0A6S!! TEMP3-D8LEI FLOAT (J) ))*D60) 

TVPt 

ISN  0057 

T£MP4*FL0N/0TRA 

TVPfc 

ISN  0058 

K»T£MP4 

TYPE 

ISN  0059 

T£MP4*DA3St ! TSMP4-D3LE !F  LOAT IK) 1 1*060) 

TYPE 

ISN  0060 

WRITE (6, 114)  J, T£MP 3, TEMP, A, TEMP4, TEMPI 

Type 

ISN  0061 

114  FORMAT  ( 14.F7.4.F8.4, I4,F7.4,FB.4) 

TYPE 

ISN  0062 

IF  III  103,102,102 

TYPE 

ISN  0063 

102  COOT-O. 6739378C0-02 

TVPfc 

ISN  0364 

A 1* -0.9 31 370620*0 

TYPE 

ISN  0065 

A 2* 0.21 3439C8D*  01 

TVPfc 

ISN  0066 

A3-C. 135824890*01 

TVPfc 

ISN  0067 

A4*0. 11 5998670-02 

TYPE 

ISN  J069 

A5*-0. 341666220*0 

TVPE 

ISN  0069 

TEMP  *OSI NIFLAT I 

type 

ISN  0070 

tempi «ocusi flat* 

TVPE 

ISN  0071 

TEMP2«l;SIN!?LCN) 

TYPE 

ISN  0072 

TtMP3*C cosiflcni 

TVPE 

ISN  0073 

S2l AT*' L  MP*T£MP 

TVPfc 

ISN  0074 

V-OSJ**  r-UT*(CN£-ThKt*S2LAT/TwO) 

TYPE 

ISN  C075 

-•ONE  *'  EOllT*  S2LAT/TW0) 

TVPfc 

ISN  0D7S 

01  ATS' I !Al*T£wP3*A2*TfcMP2)*TENP*A3*IfcMPl)*V 

TVPE 

1  *1 A4*S2laT  *A5 1 —TEMP* TEMPI 

TYPE 

ISN  0077 

Dl tl*TEMPi-A2*T£MP3)**i/TfcMPi 

TYPE 

ISN  0078 

C<»  f«4.  '4 -*1368110-06 

TYPE 

ISN  0070 

FlaT,FlaT*C4P8*DLATS 

TYPE 

:ss  00*0 

fi;  N«F  LCN*C 4 P£*OLU-NS 

lYPfc 

ISN  COM 

I—l 

Type 

ISN  Q0e>2 

GO  TO  ISO 

lYPfc 

ISN  30*3 

103  PfTtpN 

TVPfc 

is»  rc*4 

END 

TYPE 

-  166  - 


I  lYPt  /  SIZE  CF  PROGRAM  0CU560  HEXADECIMAL  bYTES  PAGE  GOJ 


•*A«f 

TAG 

TYPE 

400. 

NAME 

TAG 

TYPE 

ALC. 

NAME 

TAG 

TYPt 

AuO. 

NAME 

TAG 

T  YPt 

A  00. 

4 

SfA 

ce 

R-8 

00C328 

e 

C 

R*e 

N.R. 

1 

S 

C 

1*4 

U002F8 

J 

SFA 

C 

1*4 

0OO2FC 

K 

c 

!•* 

000300 

L 

F 

C 

1*4 

000504 

M 

F 

c 

1*4 

000308 

N 

C 

1*4 

N.R. 

T 

SF 

c 

fi*t 

N.P. 

V 

SF 

CE 

R*a 

300363 

d 

SF 

Ct 

R*b 

000376 

AO 

C 

R*  8 

N.R. 

41 

8*8 

000120 

*2 

SF 

K*8 

000128 

A3 

SF 

R*8 

O00130 

A4 

SF 

R*0 

000138 

AS 

sf 

K*8 

000140 

Cl 

C 

R*8 

N.R. 

1M 

C 

1*4 

N.R. 

KF 

L 

1*4 

N.R. 

X  * 

C 

1*4 

N.P. 

Si 

C 

K*8 

N.R. 

TP 

C 

k*8 

N.R 

VN 

C 

8  *0 

N.R. 

*$ 

c 

R*8 

N.R. 

rs 

C 

R*« 

N.R. 

ZS 

C 

3*8 

N.R 

ATE 

c 

8*0 

N-R. 

C?K 

c 

p*a 

N.R. 

C2M 

c 

R*8 

N.R. 

OOP 

C 

*•  *8 

N.R. 

OTX 

c 

k*d 

N.R. 

060 

FA 

c 

k*8 

OOOOAO 

I  15 

c 

1*4 

N.R. 

130 

C 

1*4 

N.R. 

ONE 

F 

C 

K*d 

000068 

>*f  F 

c 

R*8 

N.P. 

RSQ 

c 

k*b 

N.R. 

TAw 

c 

R*8 

N.R. 

TEN 

C 

k*b 

N.R. 

r-i 

c 

R*8 

N.R. 

TM4 

c 

R*8 

N.R. 

Tm5 

c 

k»8 

N.R. 

TM7 

C 

8*0 

N.R. 

TM8 

c 

>*8 

N.P.' 

ThO 

F 

c 

8*8 

000070 

ARCS 

SF 

XF 

R*4 

OOOOC'J 

CKPM 

c 

R*0 

N.R. 

C«TP 

F 

c 

8*8 

0001 00 

COMO 

c 

K  *8 

N.R. 

COME 

C 

R»C 

N.R. 

CvCG 

C 

R*0 

N.R. 

CAPS 

SF 

8*8 

000148 

C4E0 

c 

K*8 

N.R. 

CL  AT 

c 

P*8 

N.R. 

OLUN 

c 

8*0 

N.R. 

mum 

c 

R*6 

N.  H. 

OTRA 

F 

c 

R*8 

0000C8 

oom; 

f 

k*8 

N.R. 

0JM2 

c 

8*0 

N.R. 

ruM3 

c 

P*8 

N.  ^  t 

DUK4 

c 

R*8 

N.R. 

0UM5 

l 

k*8 

•N.R. 

EOOI 

SF 

CE 

K*e 

000328 

.  'MO 

F 

c 

8»e 

000060 

ELAT 

F 

c 

R*  8 

0001 F  8 

ELGN 

F 

c 

k*d 

C002CO 

FFkQ 

F 

c 

8*0 

0002EO 

FIVE 

c 

K*8 

N.R. 

FLAT 

SFA 

c 

R*8 

U002u0 

FLON 

SFA 

c 

K*8 

OOO206 

FOUR 

f 

c 

8*0 

ooooau 

GEUH 

c 

P*8 

N.  R. 

HEAD 

c 

K*0 

N.R  . 

HUNO 

t 

c 

R*8 

G0C0A8 

luAV 

c 

1*4 

N.R. 

If38 

c 

1*4 

N.R. 

I  ONE 

c 

1*4 

N.R. 

I  Tf  R 

F 

c 

1*4 

000314 

IT  M3 

c 

I  *  V 

N.R. 

!3<5 

c 

1*4 

N.R. 

MDAY 

c 

1*4 

N.R. 

NO  OP 

F 

c 

1*4 

000310 

NOLL 

c 

1*4 

N-R. 

CFST 

C 

8*8 

N.P. 

GMGE 

c 

R*b 

N.R. 

RATE 

c 

R*8 

N.R. 

Rf  FC 

c 

8*0 

N.R. 

SfclV 

c 

8*8 

N.P. 

SMXE 

F 

c 

k*o 

UUO2C0 

SOhO 

c 

k*8 

N.R. 

SOME 

c 

8*0 

N.R. 

SUM 

F 

c 

8*8 

000"?8 

S7P5 

c 

R*8 

N.R. 

TEMP 

SFA 

c 

k*8 

0C0320 

TMPE 

F 

c 

8*0 

000078 

TOPI 

f. 

S*8 

N.R. 

TYPE 

R*4 

JOOltC 

UCON 

SF 

xF 

k*4 

OOUOOO 

RAVE 

c 

8*0 

N.R. 

XLMG 

c 

8*0 

N.R. 

XNUT 

c 

R  *8 

N.R. 

XOSO 

C 

R*8 

N.R. 

ZERO 

c 

R*0 

N.R. 

ZOSQ 

c 

8*8 

N.R. 

ULATS 

SF 

CE 

R*0 

000338 

OLONS 

SF 

CE 

ft*8 

000350 

S2LAI 

SF 

CE 

8*0 

000348 

'EMPl 

Sf 

CE 

R*8 

000358 

TEMP2 

SF 

CE 

R*8 

000370 

TEMP3 

SFA 

CE 

k*8 

000330 

TEMP4 

SFA 

CE 

8*8 

000368 

TEMPS 

Sf 

CE 

R*8 

000380 

OSIN 

Af 

R*8 

000000 

OCUS 

XF 

k*8 

000000 

I BCOMf 

F 

XF 

8*0 

oooooo 

••*••  COMMON  INFORMATION 


name  of 

COMMON 

BLOCK  • 

•  SIZE  Jf  BLOCK 

G00386 

HEXAOfClMAL 

BYTES 

VAR.  NAME 

TYPE 

RFL.  AODR. 

VAR.  NAME 

TYPE  REL.  AOOR. 

VAR.  NAME 

TYPE 

REL.  AUDK. 

VAR.  NAME 

TYPE 

REL.  A00«. 

TP 

R*8 

N.R. 

XNOT 

R*B 

N.R. 

SOME 

R*8 

N.  R. 

SOMO 

R*8 

N.P- 

E 

R*8 

N.R. 

AO 

R*8 

N.R. 

COME 

ft*8 

N.R. 

COMO 

R*8 

n.f- 

Cl 

R*B 

N.R. 

XLMG 

R*8 

N.R. 

D3M1 

R*e 

N.R. 

0UM2 

R»8 

n.p- 

SI 

R*e 

N.R. 

CFST 

R*8 

N.R. 

0UK3 

R*8 

N.R. 

00  M4 

R*e 

n.p- 

0UM5 

R*e 

N.R. 

OOP 

R*8 

N.R. 

REF 

R*« 

N.R. 

xS 

ft*8 

n.p- 

YS 

R*6 

N.R. 

ZS 

R*8 

N.R. 

OTK 

r*b 

N.k* 

ELAT 

V  *8 

OOOlf 8 

EL  ON 

R»6 

000200 

GE3H 

R*b 

N.R. 

HEAD 

B*8 

N.R. 

RATE 

fi*6 

n.p- 

10AY 

1*4 

N.R. 

MOA*. 

1*4 

N.R. 

SUM 

R*8 

OOJ22 8 

DLAT 

R*e 

n.R- 

DLON 

R*8 

N.R. 

SMXE 

R*0 

0002C0 

SfcLV 

R*8 

N.R. 

FLAT 

R*6 

0002DO 

FLON 

R*B 

000206 

FFRQ 

R*a 

0002EO 

RSO 

8*8 

N.R. 

VN 

R*e 

N.R* 

I 

1*4 

0002F6 

J 

1*4 

3002FC 

K 

1*4 

000300 

L 

1*4 

0003C4 

M 

1*4 

000308 

H 

1*4 

N.R. 

NDOP 

1*4 

000310 

ITER 

1*4 

000314 

T 

R*fl 

N.R. 

TEMP 

R*6 

000320 

A 

R*8 

000326 

EQUIVALENCED  V*** 1 

’AbLES  Ml  THIN 

THIS  CUMM3H 

OiuCX 

IMS  Mole 

GrFStT 

VARIABLE 

JffSET 

vARJASLf 

OFF Sc  I 

vARlAocE 

OFFSET 

EOOT 

300328 

TEMPI 

000358 

TEMP2 

000370 

TEMP3 

003330 

S2LAT 

000348 

V 

000360 

M 

C00370 

OLATS 

PAGE  004 

000338 

OLUNS 

000350 

TEMP4 

000368 

TEMP5 

000360 

NAME  OF  COMMON  BLOCK  •  COMC*  SIZE  OF  BLOCK  030128  HEXADECIMAL  BYTES 


.  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

REL.  AOOR. 

VAR.  NAME 

TYPE 

PEL.  AOOR. 

MULL 

1*4 

N.R. 

I  ONE 

1*4 

N.R. 

IT«0 

1*4 

N.R. 

IFOR 

1*4 

N.P- 

115 

1*4 

N.R. 

130 

1*4 

N.R. 

1365 

!•% 

N.k. 

IN 

1*4 

N.P- 

KM 

I  *4 

N.R. 

KF 

1*4 

N.R. 

TAM 

R*e 

N.k. 

WAVE 

R*8 

N.P- 

C  VCG 

R*B 

N.P. 

EFRQ 

R*8 

000040 

OMGE 

R*8 

N.R. 

XOSQ 

P*8 

N.P- 

ZOSQ 

8*8 

N.R. 

ZERO 

*•8 

N.k. 

ONE 

R*8 

C00068 

TtaO 

R*6 

000070 

thre 

R*8 

000078 

FOUR 

R*8 

000060 

FI  VF 

8*8 

N.R. 

ATE 

R*8 

N.P- 

TEN 

R*B 

N.R. 

060 

K*8 

OOOOAO 

HUNO 

R*8 

OOOOAO 

C460 

R*8 

N.P* 

S7P5 

R*8 

N.R. 

TOPI 

R*8 

N.R. 

OTRA 

R*e 

0U00C8 

OT  CM 

R*8 

N .  P- 

TNI 

P*8 

N.R. 

TM4 

R*8 

N.k. 

TN5 

R*e 

N.R. 

TM7 

K*8 

N.P* 

TM8 

R*8 

N.R. 

CMTR 

R*8 

000100 

CKPM 

8*8 

N.R. 

C2K 

P*8 

N.P* 

C2M 

R*8 

N.R. 

PEFC 

R*8 

N.R. 

i 


i 


if 


•..fllC'IS  IN  $-u,Cf.fKOIC.XJUSf.«aotCH, 1.0*0. M»l>,l«*oir,ID,NOX«eF 

•STATISTICS.  SOURCE  STRTEnENTS  .  „  .p«0G*AB  su£  .  ,j60 

•STATISTICS*  NO  DIAGNOSTIC S  GENERATED 

. .  °F  . .  57*  BYTES  OF  CORE  NOT  USED 
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CO^Ptlfft 

2 

C 


JS/36U  fokTRAN  h 


OPTIONS  -  «AH(.  ^i^.0PT-O2,LlN6CNl-5b,S12E-0O0OK 

SUbRUUTJM1/uCONf6CDIC#^LIir,NUDkCK*LtjAU,,,Af>»f<(J^,T»^»NOx»<FF 


ISN  0003 
ISN  0004 
ISN  0005 
isn  ooo6 

ISN  0007 
ISN  0008 
ISN  0009 
ISN  0010 
ISN  0011 
ISN  0012 


isn  oon 

ISN  OCK 


I$N  0015 
ISN  0016 
ISN  0017 
ISN  0018 
ISN  0019 
ISO  0020 
ISN  0021 

ISN  002? 
ISN  0023 
ISN  0024 
ISN  0025 
ISN  0026 

ISN  0027 

ISN  002 f 
ISN  0025 
ISN  0030 
ISN  0031 
ISN  0032 
ISN  0033 
ISN  0034 
ISN  0 035 
ISN  0036 


Of’UHU 
VtnjBl.  t 
0LU8t£ 
D0ufci.£ 

ooueu 

OUUbi_E 

DOUBU 

uoueir 

DQUBU 

ocueu 


Wfcls!™  ''“.£fK3.0W£  .*050,2050 

HsiiPHssa—- '• 

PRtClSION  r,2 


-DIMENSIONS 

DIMENSION  M3!4);oUMui;0fc<9,'O‘4<9,*'>M,1,fOLAn,>,*0l0NI9» 
-COMMON 

SSKiKa-SM. 

COKMON  l.J.K.l.M.K.NOOP.JIfX 
COHNON  T.TEMP.A.OUH 

SiSSSisSK~-|?»" 


EQUIVALENCE  (REF(1)»YI« (  ref  (21  *2, 


Yx C  Tf MP/OT RA ) *TM7 
L*V 

in 

Y«OA0S( (Y-2|*060) 
*,r 
-M 

N*l  V-21/TM4 

peturn 

ENO 


UCUN 

UCON 

UCUN 

OCON 

OCON 

UCON 

OCON 

UCON 

UCON 

iXON 

UCON 

UCON 

UCON 

•JCON 

OC(’N 

UCUN 

UCUN 

uCuv 

UCUN 

UCON 

UCON 

UCON 

UCON 

UCON 

UCON 

UCON 

UCON 

UCUN 

UCON 

OCON 

UCON 

l  CuN 

OCON 

UC  ON 
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Appendix  A 


FLOW  CHARTS  F  OR  DATA  PROCESSING  PROGRAM  AND 
FORTRAN  NAVIGATION  PROGRAM 

Flow  charts  for  the  data  processing  program  de¬ 
scribed  in  Section  6  are  shown  in  Figs.  A-l  through  A -18. 
Flow  charts  for  the  navigation  program  described  in  Sec¬ 
tion  8  are  shown  in  Figs.  A -19  through  A -25. 
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FIX  RESULTS 
BY'UMMING 
THE  CORRECTIONS 
AND  ESTIMATES 
FOR  LATITUDE. 

LONGITUDE. 
AND  FREQUENCY 


Fig.  A-21  SUBROUTINE  SOLVE 
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Fig.  A-22  SUBROUTINES  SLANT  AND  EDIT 
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COMPUTE  AN 
APPROXIMATION 
TO  THE  RADIAN 
VALUE  OF  THE 
ARCSINE 


CONVERT 
THE  RESULT 
TO  DEGREES 


Fio.  A-24  SUBROUTINE  ARCS  AND  UCON 
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Fig.  A-25  SUBROUTINES  ALRT  AND  AVIS 
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APPENDIX  B 


FIXED  POINT  SCALING 

The  AN/SRN-9  navigation  solution  equations  and  the 
suggested  fixed  point  scaling  to  be  used  in  the  solution  are 
presented  in  this  Appendix.  It  is  assumed  that  a  computer 
with  at  least  30 -bit  word  length  is  available  (i.  e. ,  sign  and 
29  bits)  and  that  the  error  of  arithmetic  routines  is  in  the 
29th  bit. 


SCALING  NOTATION 

The  register  containing  the  word  of  interest  is  con¬ 
sidered  to  have  the  most  significant  bit  at  the  left  and  the 
least  significant  bit  to  the  right.  The  oecimal  point  :.s  nor¬ 
mally  considered  to  be  at  the  far  left,  betv/een  the  sign  bit 
and  most  significant  data  bit.  This  situation  is  represented 
by  sO.  The  letter  s  is  used  to  indicate  a  scaling  number. 
If  the  decimal  place  is  considered  to  be  to  the  right  n 
places,  the  scaling  is  indicated  by  sn.  If  the  decimal  point 
is  considered  to  be  to  the  left  n  places,  the  scaling  is  in¬ 
dicated  by  s-n.  To  scale  the  number  9  (for  example) 
optimally  it  should  be  scaled  s4. 

9  _  =  1001  binary 


* 

t 

I  =£ 


represented  in  a  30 -bit  word  as 


bit  position  30  29  28  27  26  25 
S.  1  0  0  1.  0 
s(T^— — ^s4 


PRECEDING  PAGE 


KA 
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The  number  0.  25  would  be  scaled  s-1  optimally. 


0.25...  =■  0.01  binary 


100  -  - 


=  S.  1  0  0 

s-1 


In  the  navigation  equations  the  scaling  is  written 
above  the  variable  of  concern.  Sometimes  a  shift  of  the 
decimal  point  of  the  result  of  a  computation  is  needed  to 
match  that  of  another  computation.  This  is  indicated  by 
giving  the  scaling  of  the  result  o*  the  operation  with  an 
arrow  to  the  desired  scaling. 

Example: 


x  =  a  +  by 

suppose  a  is  scaled  s3 
b  is  scaled  s2 
y  is  scaled  s4 

and  it  is  desired  to  have  x  scaled  s2.  This  would 
be  indicated  by: 

s3  s2  s4 


x  =  a  +  b  y  s3  — ♦  s2 
s6— ¥  s3 

In  multiplication.,  scaling  numbers  add.  In  divi¬ 
sion,  scaling  numbers  are  formed  by  subtracting  the  de¬ 
nominator  scaling  from  the  numerator  scaling.  In  division, 
it  is  necessary  to  adjust  the  scaling  before  dividing  so  that 
the  result  of  the  division  will  have  the  proper  scaling  to 
insure  no  overflow  {i.  e. ,  the  answer  will  fit  into  the  re¬ 
sulting  scaling). 
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INPUTS  AND  UNITS 


The  inputs  to  the  navigation  computation  and  the  units 
in  which  they  are  expressed  are  listed  below. 

Symbol 

Units 

Scaling 

t 

minutes 

sll 

P 

n 

radians /minute 

s-3 

60 

o 

radians 

s4 

1*1 

radians  /  minute 

s-11 

€ 

dimensionless 

s~3 

A 

meters 

s24 

o 

a 

radians 

s4 

o 

a 

radians /minute 

S-7 

Ci 

dimensionless 

s-5 

ag 

radians 

s4 

Si 

dimensionless 

si 

AEk 

radians 

s-2 

^k 

meters 

s24 

r?k 

meters 

s9 

t 

minutes 

s4 

o 

T 

c 

minutes 

sll 

Nk 

cycles 

s23 

*k 

cycles 

sl2 

^e 

radians 

s4 

Ae 

radians 

s4 

*k 

radians 

s4 

radians 

s4 

f 

o 

cycles  /  minute 

s21 

f 

dimensionless 

s6 

203  - 


THE  JOHN*  MO^XtN*  UNlVCMlTY 

applied  Pmys«CS  LABORATORY 

Su-vrn  %*+  MAINLAND 


Symbol 

Units 

Scaling 

6 

dimensionless 

sO 

R 

meters 

s23 

0 

h# 

meters 

s23 

Ui 

e 

radians /minute 

s-7 

L 

o 

meters /cycle 

sO 

V 

knots 

s9 

d 

radians 

s4 

SCALING  FOR  NAVIGATION  FIX  SOLUTION  AND  ALERTS 

STEP  A  —  Correct  400-MHz  doppler  counts  for  effect  of 
ionospheric  refraction. 

£ 

If  N  £  2  x  10  ,  N  =  0,  otherwise  continue. 

400 

(A.  1) 

If  R^  =  2  x  10**,  N^  =  0,  otherwise  continue.  (A.  2) 
sO 

s23  24  s12  s12 

N,  =  N,  +  —  (2000  -  R  )  s2 3  cycles.  (A.  3) 
K  *400  * 

s!2~*  s23 

STEP  B  —  Compute  navigator's  relative  motion  in  latitude 
and  longitude. 


'-f  v  Vym  n » ?i 


-a 


nm- 
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«  89  r  i8'13  j  r  si  2 1 

V  COS  <Pe  [3443.  934  60J  l*1  ~°‘5  ®  sln-V>e)J 


s2  ridians.  (B.  2) 


si-  s2 


54  s9  si  r  ,*-i3  .if  si  o  -l 

<i-;>  v  o»*i[535037  6oJ[,t‘s'1-0  “»t»  *'eJ 


s2  radians.  (B.  3) 


STEP  C  -  Compute  first  fiducial  time. 


£9  11 

K'  =^j  []  means  integer  part  of  slO  minutes.  (C. 


s2  slO 
I  “  2  K/ 


rsn 

»'[d 


s9-*  slO 


sl2-*  sll 


sll  s5  s6 

J  =  I  -  30  T' 
c 

s6  -♦  sll 
s2  s4  sll 

h  =  2 10  -  j 

sll  sll  3) 
T0  =  I  +  H  -  30 


sll 


slim*.  i  s.  (C.  2) 


s6  minutes  .  (C.  3) 


sll  minutes.  (C.4/ 


sll  minutes.  (C.5) 


sll  minutes.  (C.6) 
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STEP  D  —  Deo  ode  out -of -plane  orbit  c.u' sections  and 
interpolate  for  missing  corrections, 
si  1 

sn  s-  p0-) 

N  =  Tq  -  4  I— J  []  means  integer  part  of  (D.  1) 


s3 


sll  minutes. 


Eqs.  (D.3) through (D.. »)  snail  be  executed  i'or 


k  =  2,  4,  6,  —  UN  =  0  or  for  k  =  1,  3,  5, 


---  if  N  r  0. 

(D.  2) 


If  rj,  -5-0  then 
k 


(D.3) 


CP(i)  =  ICO  (*2,  -  5)  +  10  rj,  ,  s9 
k  K-t-l 

and  CPT  (I)  =  k.  s5 


If  r)k  -  5  <  0  and 


(D.4) 


r/k  f  0  then 


CP  (I)  =  100  (Vk  -  5)  -  10  Vk+1  s9 


and  CPT  (I)  =  k. 


s5 


If  Tj.  -  5  <  0  and 
k 

7J^  =  0  then 
CP(I>  =10  Vl 
and  Cl-  T  (i)  =  k 


s9 

s5 


(D.5) 


where  I  =  1,  2,  3, - ,  OP. 
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If  OP  *  2  then  (D.  6) 

7j^  =  0  for  k  =  1,  2,  3,  •  --,  KM. 

If  OP  =  3,  execute  Eq.  (D.  7-a)  for  k  =  1,  2,  3,  — ,  KM. 

If  OP  =  4  and  N  =  0  execute  Eq.  (D.  7-a)  for 
k  =  1,  2,  3  and  Eq.  (D.  7-b)  for  k  =  4,  5,  6,  ---,  KM. 

If  OP  =  4  and  N  ^  0  execute  Eq.  (D.  7(  a)  for 

k  =  1,  2  and  Eq.  (D.  7-b)  for  k  =  3.  4,  5, - ,  KM.  ^  ^ 

If  OP  =  5  and  N  =  0  execute  Eq.  (D.  7-a)  for 
k  =  1,  2,  3,  Eq.  (D.  7-b)  for  k  =  4,  5,  and 

Eq.  (D.  7-c)  for  k  =  6,  7,  8, - ,  KM. 

If  OP  =  5  and  N  /  0  execute  Eq.  (D.  7-a)  for  k  = 

1,  2,  3.  Eq.  (D.  7-b)  for  k  =  4,  and  Eq.  (D.  7-c)  for 
k  =  5,  6,  7,  — KM. 


-  s5 

s5 

s5 

s5 

39 

fkfl) 

-  CPT(2) 

(k+1) 

-  CPT(3) 

C.H1) 

sl2  -*s9  s9 

CPT(l) 

-  CPT(2) 

CPT(l) 

-  CPT(3 ) 

.  s5 

s5 

s5 

s5 

slO  —  s7 

-  s5 

s5 

s5 

s5  -j 

3d 

(k+1) 

CPT(l) 

(k+1)  - 

CPT(3) 

CP(2) 

sl2  -  s9  s9 

CPT(2) 

-  CPT(l) 

CPT(2) 

-  CPT(3) 

-  s5 

s5 

s5 

s5 

s 50  -s7 

“  s5 

s5 

s5 

s5 

s9 

(k+1) 

-  CPT(l) 

(k+1) 

-  CPT(2) 

CP(3) 

s!2-s9  s9 

CPT(3) 

-  CPT(l) 

CPT(3) 

-  CPT(2) 

-  s5 

s5 

s5 

s5 
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S12-S9  s9 


312-* s9  s9  (D.  7-b) 


s 1 2-s9  s9. 


sl2~s9  s9 


s!2— s9  s9  (D  7_c) 


sl2—s9  s9  . 
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STEP  E  —  Compute  time  between  time  of  perigee  and 
first  fiducial  time. 


sll  si  1 
t  =  Tn  - t 

0  p 

sll  s4 
tD  =  1440  -  2  n  In 
B  8-3 


s7"*  sll 


sll  minutes.  (E..  1) 


sll  minutes.  *’E.2) 


sll  sll 

If  t  *  -480  then  At  =  t  +  1440 J 

P 

sll 

If  -  480  <  t  <  t_,  then  At  =  t 
R  p 

sll  sll 

If  t_,  ;£  t  then  At  =  t  1440 

R  p  j 


sll  minutes.  (E.  3) 


STEP  F  —  Compute  satellite  coordinates  at  2 -minute 
intervals. 


sll 


sll 


At.  =  At  +  2  (k  -  1) 
k  p 

s-3  sll 

Mk  n  Atk  s8-s7 


s7 

EK  =  Mk 


i-3 

•H  «  si 


si 


s-2 


sin  Mk  +  A  ER 
s-2~*s7 


J 


sll  minutes. 


s7  radians. 


(F.  1) 

(F.  2) 


s7  radians.  (F.  3) 


s24  s24 

\  ■  Ao  +  A  Ak 


s24 

\  *  [  Ak 


si  s-3  si 


Ak  (cOS  Ek "  C  ] 


] 


s24  meters.  (F.  4) 


s24  meters.  (F.5) 


s25~,s24 
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s24  si 

(sin  E^)  s25  "*  s?4 


s4  rs-iisii] 

"k  =  “o  '[4Atk  Js0' 


s24  meters. 


s4  radians. 


(F.  6) 


(F.  7) 


s24  Sl  s24  Sl 

cos  sin  s24  meters.  (F.  8) 

s25-*s24 

s24  sl  s24  sl 

y*  =  u,  sin  o>,  +  v,  cos  tv.  s25  meters.  (F.  9) 

J  k  k  k  k  s 


z  =  r i 


s9  meters. 


s‘7  s 

s4  s4  #  -7  sll  s4  radians. 

\  ■  <°0  -  AG>  +  <n  -  “e,Atk 


Ts24  sl  1  fs25  s-5  sl  1 

XSk  '  K  COS,!kJ_Lyk  Cista0kJ 

s25-*s24  s21-»s24 


(F. 10) 
(F.  11) 

(F.  12) 


rs9 

sl 

sl _ 

!*k 

\z' 

LZk 

Si 

sinV 

s24  meters.  I 

sll-s24 


[s24  sl  1  |s25s-5  sl 

*ksta\J+bkCi  cos',i 

s25~*  s24  s21~*  s24 

s9  sl  sl  "I 

z'k  Si  cos  "J 

sll-*  s24 


M 


s24  meters. 


(F.  13) 


-  210  - 


-  211  - 


-  212  - 


(H.  3) 

(H.  4) 

(H.  5) 

(H.  6) 

(H.  7) 

f  i" .  8) 

(H.  9) 

(H.  10) 

(H.  ID 

(H.  12) 


r 


svuuumspi 


TME  JOHN*  HOW.IN*  UNIVERSITY 

APPLIED  PHYSICS  LABORATORY 
S'tvcft  S»*inc  Maryland 


J 

* 

4  » 


STEP  I  —  Compute  refraction  corrected  measured  slant 
range  differences. 


v  s23  sO  s2  s21  sO 

i  =  N,  L  -  2.0  f  L 
ko  k  o  o  o 


STEP  J  —  Form  the  C  matrix. 
s23  s23  s23 


s23  meters. 


(I.  1) 


JO 


^  r  aa  J  o*o  -j 

Sko+  [Sk+1  "  Sk+lj 
s23"*s20 


s20  meters. 


(J.  1) 


'J1 


fs2  sO  "J 

-  T20  LoJ 


•J2 


'  s2~*sl 

s23  s23 

3S,  ^  3  S. 

k+1  k 

dtf> 


si  meters-minutes  (J.  2) 
cycle 


3<p 


J3 


s24  s24 

ask+i  ask 

~r~ +  tt 

s24-s23 


s23  meters/ 
radian. 


s23  meters/ 
radian. 


(J.  3) 


(J.  4) 


STEP  K  —  Form  the  A  matrix. 


J  -  Number  of  rows  in  C  matrix. 


TO 


a20 


m=l 


si  s20 

C  .  C  n 
ml  mO 


s21“*s23  s23. 


s23  s20 


=  S  C 
m=l 


m2  mO  s43“*s45 


s45. 


(K.l) 


(K.  2) 
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s23  s20 


30 


=  S  c 

m=l 


m3  mO  s43"*s42 


s42. 


J  si  si 

a  -  =  L  C  ,  C  , 

11  ,  ml  ml  s2-*s5 

m- 1  - 


s5  . 


21 


J  s23  si 

^m2  ^ml  s24-s27  s27. 


31 


J  s23  si 
L  C  C 

_ t  m3  ml  s24-s23  s23. 

m- 1  - 


al2  =  a21* 


22 


J  s23  s23 

2  C  C 

m_1  m2  m2  s46-s49  s49. 


32 


J 

L 

m=l 


s23  s23 

Cm3  Cm2  s46~»s45  s45. 


ai3  =  a31' 


23 


=  a 


32' 


33 


J  s23  s23 

2  Cm3  Cm3  M6TS43  s43. 

m-1 


(K.  3) 

(K.  4) 

(K.  5) 

(K.  6) 

(K.  7) 

(K.  3) 

(K.  9) 

(K.  10) 

(K.  11) 

(K.  12) 
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A<p  = 


AX  = 


(B22  BIO  -  B12  B20) 
A 

s91 

S4Z  s45  s45 

B  20  -  B12  BIO) 
A 

s91 


-  216  - 


s -4  radians.  (L.  7) 


s-1  radian. 
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sl 8  cycles/  (L.  9) 
minute. 


s21  sl8— »s21 

f  =  1  +  where  f  =  fQ  on  first  iteration  s21  cycles/  (L.  10) 

minute. 


s4 

s-4"*s4 

- 

*f  + 

A 'p 

s4  radian. 

(L.  11) 

s4 

s-l-s4 

s  • 

Xf  + 

AX 

s4  radian. 

(L.  12) 

STEP  M  - 

Write  out  results. 

34 

s4 

DLA 

=  Pf 

-  <Pe 

s4  radians. 

(M.  1) 

s4 

s4 

DLO 

-  V 

X 

e 

s4  radians. 

(M.  2) 

s21 

s21 

FRQ 

=  f  - 

f 

o 

s21  cycles/ 

(M.  3) 

minute. 

sll 

s3-«sll 

TIME 

o 

£i 

ii 

+  4 

sll  minutes. 

(M.4) 

STEP  N  —  Test  for  convergence. 

If  Af  >  2.  4  cycle /minute 
or  if  Ap>  1.2  x  10'7  radian 
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AX  ^  1.2  x  10 

or  if  AA  ■>  -  radian 

cos  \0 

and  if  ITER  <  10  then  return  to  Step  G.  Otherwise  go 
to  Step  O  to  edit  doppler  data  or  Step  P  to  compute 
alerts. 


STEP  O  —  Edit  doppler  data. 

If  sin  E^-.  ,  5  sin  7.  5°  and  (0. 1) 

iSlvi  -iC*r  1 

slnEKM-k+lS  sinEkand 

NKM-k  *  °  *hen 

Nm,  ,  =  0  and 

KM-k 

NDOP  =  NDOP  -  1. 


Or  if  sin  E  ,  .  >  sin  7. 5C  and  (0. 2) 

KM-k+1 

sin  E,  s  sir--  7.  5°  and 
k 

N.  , ,  >  C  then 
k+1 

N,  =  0  and 
k+1 

NDOP  =  NDOP  -  1. 

Otherwise  make  no  changes  in  the  N^  table. 

STEP  P  —  Compute  alerts. 

ISTP  =  T\?DAY-IDAY.  If  ISTP  <  0,  let  ISTP  =  ISTP  +  365. 

(P.l) 


-  213  - 


- r--%vsn 


a 

i 

« 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

8 

1 

I 

I 


THE  JOHN*  HOPKIN*  UNIVERSITY 

APPLIED  physics  laboratory 

StLVC*  SMt.MO  *»AIIYUAND 


Let  T0  =  T0  -  18,  KM  =  1,  DE(K)  =  0,  DA(K)  =  0, 
DN(K>  =  0,  I  *  1,  2,  3,  — ,  ISTP,  KDAY  =  I  +  IDAY. 

Execute  Steps  F,  G,  and  H. 

If  Ek  2  0  let  Tq  =  Tq  +  10,  and  repeat  Step  P.  3  in¬ 
creasing  Tq  by  10  each  repetition  until  E-k  >  0. 

When  E^  >01et  Tq  =  Tq  -  10,  i  epeat  Step  P.  3,  and 
then  execute  Step  P.  6. 

If  Ek  5  0,  let  Tq  =  Tq  +  2,  ref  oat  Step  P.  3  in¬ 
creasing  Tq  by  2  each  time  until  E^  ^  C,  and  then 
execute  Step  P.  7. 

When  Ek  ^  0  let  TQ  -  2  =  RISE,  Ek  =  E.,  TQ  = 

Tq  +  0.  25  and  repeat  Step  P.  3  increasing  TQ  by 

O,  25  and  letting  the  new  value  of  Ek  =  E^  each 
time  until  Ek  <  E^.  Then  =  maximum  eleva¬ 
tion  for  that  pass. 

Write  out  day  number  of  alert  day,  RISE  time 
(hours  and  minutes),  and  maximum  ele  /at ion 
angle  for  the  alert  pass. 

Let  Tq  =  Tq  +  10  then  repeat  Steps  P.  3  through 

P.  8  incrementing  I  and  K  until  I  >  ISTP  indicating 
that  all  alerts  through  the  end  of  MDAY  have  been 
obtained. 
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Appendix  C 


FOUR- VARIABLE  (VELOCITY  NORTH)  NAVIGATION 

Section  7  does  not  include  equations  to  solve  for 
velocity  north  or  equations  for  relative  motion  inputs  other 
than  those  obtained  from  an  inertial  system  (i.  e. ,  latitude 
and  longitude)  or  a  system  providing  course  and  speed 
data.  This  Appendix  provides  these  equations  and  also 
presents  a  method  of  assigning  numbers  to  satellite  2- 
minute  messages  when  a  real-time  clock  is  not  available. 
This  method  may  be  used  to  determine  missing  messages 
due  to  Jrss  of  lock. 


EQUATIONS  FOR  SHIP'S  MOTION  FOR  CONSTANT 
VELOCITY  OR  DISTANCE  TRAVELED 

A  table  of  navigator's  latitudes  (tp^)  and  navigator's 
longitudes  (Ak)  is  assumed  available  from  Step  B  of  Section 
7.  These  table  values  may  be  provided  by  an  inertial  sys¬ 
tem  or  from  calculations  based  on  a  knowledge  of  course 
and  speed.  However,  there  are  situations  where  these 
types  of  data  are  not  present  and  therefore  these  tables 
may  also  be  constructed  from  information  on  either  the 
navigator's  velocity  (north  and  east)  or  from  distance 
traveled  using  certain  approximations.  No  study  has  been 
done  on  the  effects  of  these  approximations.  However, 
for  the  relatively  small  velocities  encountered  in  ship¬ 
board  navigation  their  effects  are  negligible. 


Equations  for  Constant  Velocity  North  and  East 


V 

<P,  =  <P  .  +  2  - -  [(1  +  6  (1  -  0.  56  sin2<P  .)] 

k  3  Rn  3 


o 

1  -0.56  sin 


( - - - L) 

cos  <P. 

3 


PRECEDING  PAGE  BUNN 


-  221  - 


sr 


THE  JOHNS  HOPKINS  UNIVERSITY 

APPliED  Pi-iySiCS  LABORATORY 

SiLVKft  SPPIHG  Maryland 


6  = 
f  = 

<P.  = 
3 

3  is 


f  (2-f). 

the  value  given  in  the  table  of  program  constants. 


and  X .  are  initial  estimates  for  the  position  at  time  t.. 
3  3 


the  value  k  =  3. 


V„T  and  V_  are  the  constant  north  and  east  components  of 
N  E 

ship's  velocity  given  in  nautical  miles  per  minute.  RQ  = 
3443.  934  nautical  miles. 


The  factor  of  2  appears  because  the  fiducial  time 
points  denoted  by  k  are  2  minutes  apart.  The  approxi¬ 
mations  are  caused  by  assuming  that  <p  and  X  are  constant 
velocity  north  and  east  and  ignoring  changes  in  the  earth 
radius  during  the  time  of  the  pass. 

Equations  for  Distance  Traveled 


X 


k 


DN  -  DN.  ? 

<p  +  - - - 1  [1  +  6  (1  -  0 .56  sin  <p .)] 

3  R0  3 


X. 

3 


+ 


-  DE. 
_ 1 

0 


1  -0.56  sin 


cos  <P. 
3 


DNk  and  L'E^  are  measured  from  any  fixed  arbi¬ 
trary  point.  These  distances  may  be  obtained  from  a  DRT 
plot,  or  as  the  range  (R^)  and  bearing  (B^)  to  a  fixed  point, 
as  follows: 
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NORTH 


Additions  to  Section  7  to  Solve  for  Velocity  North  Error 
STEP  G 


Replace  tpk  by  ^  +2  <?> .  (k-j)  in  Egs.(G.  5)  through  (G.  11) 
where  j  is  the  value  k  =  3. 


Additional  Input: 


Estimate  of  velocity  north  (V^) 
to  get  estimate  of 


♦j 


(knots) 
3443.  x  60 


rad 

min 


ax. 


Nk 


a<p. 

3 


ay 


Nk 


d  tp 


=  2  (k-j) 


=  2  (k-j) 


a  x 


Nk 


a  <p 


a  y 


Nk 


dtp 


a  z 


Nk 


a  <p. 

3 


=  2  (k-j) 


az 


Nk 


dtp 


(G.  14) 


These  steps  are  not 
necessary  in  the 
computation  but  are 
included  for  back¬ 
ground. 


(G.  15) 


(G.  16) 
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J 

a43 

=  £  C  C 

-  m4  m3 
m=  l 

(K.  12.  1) 

al4 

=  a41‘ 

(K.  12.  2) 

a24 

a42  * 

(K.  12.  3) 

a34 

=  a43‘ 

(K.  12.  4) 

J 

a44  E,  Cm4  Cm4'  <K-  «•  5> 

m=l 


OUTPUT:  A  Matrix 


~aio 

+ 

an 

Af 

+  a. . 
12 

A tp  + 

ai3 

AX  +  a. , 
14 

5 

II 

o 

~a20 

+ 

a21 

Af 

+  a22 

Afp  + 

a23 

AX+  a24 

Ay  =  0 

'a30 

+ 

a31 

Af 

+  a32 

Alp  + 

a33 

a34 

Ay  =  o 

1 

.P» 

4* 

O 

+ 

a41 

Af 

+  a42 

A p  + 

a43 

a44 

Ay  =  o 

STEP  L 

Ay  =  a40  -  [a41  Af  +  a42  *»  +  a43  M1 

a44 

Eliminate  Ay  by  redefining  the  A  matrix  at  the  end  of 
Step  K  and  used  in  Step  L. 
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i  -  1,  2,  3 


ai0  =  ai0  ‘  a  .  di4 
44 


a..  =  a-i  "  -  a.. 

11  11  a44  14 


a.„  =  a.  „  -  a.. 

i2  i2  a„,  i4 
44 


a  -  a.0 - a 

i3  i3  a..  i4 
44 


Solve  for  Ap,  AX,  Af  as  in  Steps  (L.  1)  to  (L.  9). 


Then  solve 


Ay  from  (L.O),  (L.9),  (L.  7),  (L.  8) 


0.  =  p.  +  Ay. 
J  3 


STEP  N 


If  1  Ayj 


0.02 _ 

3443.  x  60. 


continue 

iterating  at  Step  G 


(L.  13) 


(N.  2) 


after  convergence 


2  2  2 

V.T  =  3443.  934  (cos  9.  +  (1-f)  sin  p  .)  0.  x  60. 

N  3  3  3 


Programming  Method 


Figure  C-l  is  a  flow  chart  of  a  direct  search  method 
for  implementing  the  velocity  north  solution.  In  this  method 
the  3x3  solution  is  obtained  together  with  the  value  of  the 
sum  of  the  square  of  the  residual  between  the  theoretical  and 
measured  slant  range  difference.  The  value  for  velocity 
north  is  increased  from  an  initial  value  of  zero  by  an  amount 
Av,  a  new  fix  solution  obtained,  and  a  new  value  calculated 
for  the  sum  of  the  residuals.  The  process  is  repeated  with 
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VN  =  0 
AV  =  2 


SOLVE 

DEOIT 

SOLVE 


STORE 

3x3 


VNLPM4 


NO  Vft  SOLUTION 


OLDSUM  =  NEWSUM 

VNLOOP i  ►— - 

I  VN  -  VN  +  AV 


^NEWSUM-OLDSUK 


AV  =  -  AV 
VN  =  VN  +  AV 


IS  AV  <  € 


SUBROUTINE  SOLVE 
PROVIDES  THE  SUM  OF 
THE  RESIDUALS 
SQUARED  AS  WELL  AS 
THE  FIX 


^  SOLVE 

) 

L_ 

STORE 

4x4 

L 

Fig.  C-1  VELOCITY  NORTH  SOLUTION  BY  DIRECT  SEARCH 
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Av  being  incremented  so  long  as  the  residuals  continue  to 
decline  in  value.  The  method  provides  for  both  positive 
and  negative  values  of  Av. 


NUMBER  ASSIGNMENT  TO  SATELLITE  2 -MINUTE  MES¬ 
SAGES  TO  DETERMINE  MISSING  MESSAGES 

In  order  to  majority  vote  the  words  from  the  satel¬ 
lite  messages,  it  is  necessary  to  keep  track  of  which  words 
represent  the  same  parameter  The  words  which  represent 
constant  parameters  do  not  change  their  position  in  the 
satellite  message.  However,  words  which  represent  the 
time  varying  parameters  do  change  their  position  from  one 
2-minute  message  to  the  next.  Whenever  2-minute  mes¬ 
sages  are  missing  due  to  loss  of  lock  it  is  necessary  to 
know  how  many  are  missing.  Otherwise  the  relative  posi¬ 
tion  of  similar  words  will  not  be  known  between  any  two 
messages.  Keeping  track  of  missing  messages  is  easy 
when  messages  are  stored  according  to  a  clock.  However, 
when  a  clock  is  not  available  some  other  means  of  deter¬ 
mining  missing  messages  must  be  used.  The  satellite  data 
may  be  used  to  assign  numbers  to  each  message  using  the 
technique  discussed  later.  These  numbers  are  sequential 
with  missing  numbers  for  missing  messages  and  therefore 
they  accomplish  the  purpose  of  determining  missing  mes¬ 
sages.  Once  this  is  done,  majority  voting  of  the  time- 
varying  words  may  be  accomplished.  From  these  results 
and  an  estimate  of  time  (correct  to  14  minutes)  the  correct 
time  of  the  first  doppler  interval  is  calculated.  The  dopp- 
ler  counts  stored  during  the  pass  may  now  be  associated 
with  the  correct  time  interval  by  use  of  the  message  number 
assignments. 

The  time -varying  words  have  contained  within  them 
a  time  integer  modulo  15  that  represents  the  time  in  some 
half  hour  for  which  that  particular  correction  is  to  be 
applied.  These  time  integers  are  sequential  from  0  to  14 
as  time  goes  from  0  to  30  minutes.  Each  message  contains 
eight  sequential  time  varying  words  (see  Fig.  10  and 
Table  1).  These  time  integers  could  be  used  directly  to 
assign  message  numbers.  However,  there  is  no  assurance 
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that  they  are  correct  because  of  noise  in  transmission  or 
receiving.  The  following  technique  is  used  to  assign  num¬ 
bers  to  the  messages  and  will  work  when  the  bit  error  rate 
is  less  than  or  equal  to  1  out  of  8,  which  is  much  higher 
than  normally  encountered. 

Procedure 

Strip  off  the  least  significant  time  digit  (4  bits)  from 
each  of  the  eight  time -varying  .-/ords  in  the  message  of 
interest.  This  sequence  of  eight  numbers  may  have  errors, 
but  it  will  be  a  subset  of  the  sequence: 

0123456789012340123456. 

This  eight -digit  (32 -bit)  sequence  is  compared  to  a  known, 
error  Iree  sequence.  The  known  sequence  is  shifted  a  digit 
at  a  time  until  the  number  of  bit  errors  between  the  two  se¬ 
quences  is  less  than  five.  The  number  of  shifts  required  to 
do  this  is  the  number  assigned  to  that  message. 

Table  C-t  shows  the  number  of  bit  errors  between 
any  two  (  BCDX3)  digits  from  0-9-  By  adding  the  eight 
numbers  along  the  diagonal  starting  at  the  point  defined  by 
the  starting  digit  of  the  known  and  satellite  time  sequence, 
one  immediately  gets  the  number  of  errors  between  the  two 
sequences. 

Table  C-2  gives  the  results  of  doing  this  calculation 
on  Table  C-l. 

Assuming  the  satellite  message  is  error-free  there 
will  be  no  errors  when  the  two  sequences  are  the  same; 
otherwise  there  are  at  least  nine  bit  errors  (by  observing 
Table  C-2). 

The  sequences  are  compared  on  the  basis  of  less 
than  5 -bit  errors  to  handle  the  case  when  there  are  4-bit 
errors  in  a  sequence  which  would  normally  mismatch  by 
9  bits. 
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Table  C-l 

Number  of  Bit  Errors  between  any  Two 
BCDX3  Digits 

0123456789012340123456 
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Table  C-2 

Number  of  Errors  when  Comparing  Two  Eight -Digit 
Sequences  Made  up  of  the  Least  Significant  Digits 
of  the  BCDX3  Modulo  15  Time  Sequence 

Beginning  Digit  of  One  Sequence 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

1 

2 

3 

4 

0 

0 

15 

14 

20 

15 

26 

17 

22 

14 

20 

10 

14 

18 

15 

15 

1 

15 

0 

15 

13 

22 

17 

26 

17 

21 

17 

19 

13 

13 

18 

14 

2 

<D 

14 

15 

0 

18 

13 

22 

17 

26 

18 

18 

18 

18 

16 

13 

19 

c  3 
a» 

20 

13 

18 

0 

19 

14 

21 

16 

22 

18 

18 

18 

18 

19 

13 

=r  4 
o 

15 

22 

13 

19 

0 

19 

12 

19 

17 

19 

17 

17 

19 

18 

22 

5 

u  0 

26 

17 

22 

14 

19 

0 

17 

10 

18 

16 

16 

18 

16 

21 

19 

(D 

£  6 

17 

26 

17 

21 

12 

17 

0 

17 

11 

17 

17 

13 

17 

16 

22 

o 

a)  7 
sz 

22 

17 

26 

16 

19 

10 

17 

0 

16 

12 

16 

16 

10 

19 

15 

Z  8 

o 

14 

21 

18 

22 

17 

18 

11 

16 

0 

18 

12 

16 

14 

9 

19 

s  9 

20 

17 

18 

18 

19 

16 

17 

12 

18 

0 

16 

12 

14 

13 

9 

uo 

•r-t 

a  o 

10 

19 

18 

18 

17 

16 

17 

16 

12 

16 

0 

14 

12 

15 

13 

tJO 

C  i 
c 

14 

13 

18 

18 

17 

18 

13 

16 

16 

12 

14 

0 

12 

13 

17 

.5  2 

hfl 

18 

13 

16 

18 

19 

16 

17 

10 

14 

14 

12 

12 

0 

15 

15 

<0  „ 
ffl  3 

15 

18 

13 

19 

18 

21 

16 

19 

9 

13 

15 

13 

15 

0 

14 

4 

15 

14 

19 

13 

22 

19 

22 

15 

19 

9 

13 

17 

15 

14 

0 
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Min  -  Max 
10  -  26 

13  -  26 

13  -  26 

13  -  22 

13  -  22 

10  -  26 

11  -  26 

10  -  26 

9-21 

9  -  20 

10  -  19 

12  -  18 

10  -  19 

9-21 

9-22 
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Example 

Applying  the  above  procedure  to  the  data  shown  in 
Fig.  10  the  following  time  sequences  are  obtained: 

40123456  for  the  first  message, 
01234  5  67  for  the  second  message. 

Now  if  a  left  end  around  shift  is  done  to  the  following  known 
sequence  and  the  first  eight  digits  are  compared  to  the 
above  sequences,  it  will  be  seen  that  14  shifts  are  required 
for  the  first  and  0  for  the  second. 


jo  1  23  45  6  7]  8  9  0  1  2  3  4 

_ t 

If  a  match  to  less  than  5 -bit  errors  is  not  obtained  in  14 
shifts  that  message  should  not  be  used  since  it  contains  data 
that  are  too  noisy. 
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Appendix  D 

TROPOSPHERIC  REFRACTION  CORRECTION 


r  „ThiS  APPendix  presents  the  equations  developed  in 
£  •  that  are  to  be  used  if  it  is  desired  to  correct  the 
integrated  doppler  data  obtained  from  the  satellite  for  the 
effects  of  tropospheric  refraction.  The  correction  for 
ropospheric  refraction  Aptro  is  to  be  subtracted  frorn^ 

every  slant  range  measurement.  The  expression  for  S 
the  measured  slant  range  difference  (Eq.  (1, 1)  in  Sec-  k°J 
tion  7),  would  thus  be  modified  as  follows; 


'corr  "  Sko  "  <A*trok+i  '  Aptr°k> 


(D.l) 


where  k  =  1,  2,  3,  — ,  KM  . 


The  tropospheric  refraction  correction  An  is  de- 

>  follows  -  ^rro 


fined  as  follows: 


Ap.  =  S  Ap. 

tr°  i=1.2  1 


(D.2) 


where 


Ap.  =  10 


NTj  i  ~*l  ^~4  |‘3‘  rT2  3  '  IT 
tro. 

*-  1 


2  .  5  3  2  1  2 

'  15  il  ~  4  rT  rtro.  *1(/1  +2*2} 

1 


*  Vo2  ‘l  'I  '  |  r,„2  V  *  l|  -33 

!  1  111 

1  i  i  ill  i 


.  1  „  *  2,3  2  2 

2  tro.  f2  ( 4  l2  +  rtro 
l  l 


S  hJxIV  jl 

r,  +  i  | 
i  tro.  3.  7 
i  i  J 
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i  =  subscript  indicating  dry  (d)  and  wet  (w) 
refractivity  terms, 

Nt  =  ith  component  of  tropospheric  refractivity 
i  evaluated  at  a  location  near  the  navigator's 
antenna, 

i1  =  rT  sin  E, 

h,  =  h  h_, 

tro.  o.  T 

i  1 

r,^  =  distance  from  center  of  earth  to  navigator's 

antenna  (km), 

rtro.  rT  +  ^tro.  , 


i2  =  rT  COS  E’ 

,2  2.1/2 

i3.  =  (rtro.  ~  l2  )  ‘ 

i  i 

h  =  height  of  ith  component  of  the  troposphere 
i  above  the  geoid  (km), 

h^,  =  height  of  navigator's  antenna  above  the 

geoid  (km) 

(on  ships,  negligible  error  is  introduced  by 
assuming  hrp  =  0),  and 

E  =  elevation  angle  of  satellite  at  instant  of 
slant  range  measurement  (radians). 

The  dry  and  wet  components  of  the  tropospheric 
refractivity  N>j^  are  determined  as  follows: 


XT  77.  6  P 

N  =“T - 

d  K 


(D.  3) 


77.  6  (4810  e) 
„  2 


(D.  4) 
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where  TK  =  temperature  (degrees  Kelvin)  P  io  * 
s"wPI,eerSUre  (m;IIibars>-  e  ^  .he  partS  pr«?°' 

KSpSKSSS 

The  determination  of  tropospheric  height  h  ic 
ponent°h  assumPtion  ‘he  height  of  the  wet  Di  Com- 
the  dr^c^mpoZfhan^With 'atitUde-  bul  tha‘  *•»  height  of 

tude  Vr,  as  given  in't'&e'f  °f  the  navi4,ator's  lati- 

T’  S1™"  ™  “e  following  expression. 


VW^V 


(D.  5) 


b°d(eq)  *s  tbe  height  at  the  equator  and  A,  is 
the  amplitude  of  the  variation  of  h0(j  with  latitude.  Values 
of  these  parameters  for  three  values  of  hQw  are  given  in 
Table  D-l.  A  value  of  h^  =  12  km  is  generally  satisfac¬ 
tory  for  use  in  all  tropospheric  refraction  calculations. 

Table  D-l 

Height  Parameters  for  Two-Quartic  N  Profile  (km) 


°d(eq) 
43.  858 
43  : 30 
42.  402 


-5. 986 
-5.  206 
*4.  426 


ALTERNATIVE  FORMS  TO  ELIMINATE 
ROUNDING  ERRORS  ^m^A  I E 

At  high  satellite  elevation  angles,  significant 
rounding  errors  occur  in  the  com  pu  tat  ini  of^he  expression 
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for  ^ptro  given  in  the  preceding  section,  even  in  double 
precision.  Alternative  forms  have  been  developed,  there¬ 
fore,  to  eliminate  the  rounding  error  problem  and  the  need 
for  double  precision  computation.  These  forms,  which  are 
presented  in  Ref.  14,  are  based  upon  the  integral  expression 


dx 


(h*roi)4  -htro.  [!l'tro.  -  'a* 


2  lT]2 


.  (D.  6) 


Although  this  equation  may  be  integrated  in  closed 
form,  it  results  in  inacceptable  rounding  errors,  as  stated 
above.  An  alternative  form  is  obtained  by  expanding  the 
integrand  in  series  form  and  then  performing  the  integra¬ 
tion.  This  approach  eliminates  the  problem  of  rounding 
errors.  Two  solutions  are  of  interest:  one  for  large 
values  of  E  and  one  for  small  values.  Their  respective 
regions  of  rapid  convergence  sufficiently  overlap  so  that 
the  crossover  value  of  E  can  be  left  to  tne  discretion  of 
the  user.  In  addition  to  the  two  solutions  presented  below, 
a  formula  is  given  for  estimating  the  error  in  truncating 
tv  series  to  a  fixed  number  of  terms.  For  convenience, 
the  following  parameters  are  defined: 


W1  ~  rtro.  +  *2  ’ 

i 


W2  =  rtro.  "  l2  ’ 

i 


W  =  W2 
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Large  Elevation  Angles 


The  recursive  relationship 

F(k)  =  1/  2  (2^~  ^  F(k-l)  (D.  8) 


may  be  used  to  generate  the  F(k)  for  any  desired  range  of 
values  of  k  and  eliminates  having  to  compute  factorials. 
The  remainder  in  the  expression  for  Aptro  after 
p  =  2^  -  2  terms  have  been  lsed  may  be  estimated  by 
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Small  Elevation  Angles 


-  /  h  \(2n  +  3)/2l 

/  htro  \ 

2 

1  -  11  -  1  1 

2n  +  3 

V 

\  ^ 

\  \r 

The  remainder  after  p  =  2  -  1  terms  is  given  by 


(D.  n) 


238  - 


TMC  JOHN®  HOMINt  UN1VCHSJTY 

APPLIED  PHYSICS  LABORATORY 

SiLVfft  (MINQ  MaMVLANO 


APPROXIMATION  FOR  SMALL  COMPUTERS 

The  computations  of  the  full  expression  for  tropo¬ 
spheric  range  correction  presented  above  require  a  fairly 
large  computer.  The  following  greatly  simplified  expres¬ 
sions  have  been  developed  for  use  where  the  computing 
facilities  are  limited. 

T  ie  total  range  correction  Aptro  at  any  elevation 
angle  (i.  e. ,  any  data  point)  is  computed  as  the  sum  of  the 
so-called  "dry"  and  "wet"  components,  here  subscripted 
d  and  w: 


AOtro  *  (A0tro>d  +  ^Otro’,  ' 


(D.  12) 


The  simplest  available  approximations  for  the  components 
are  based  on  Ref.  15  and  are  as  follows: 


-3  I 2  2 

(Ap^)^  =  2.  31  x  10  '  esc  yE  +  0d  km 


(Ap  )  =  0.  20  x  10  3  esc  4/E2  +  0  2  km 

tro  yy  ™  w 


(D.  1 3) 


where  E  is  the  elevation  angle  of  the  satellite  slant  range 
vector  and  0^  and  are  empirical  parameters  (angles); 
values  will  be  given  below.  Equation  (D.  13)  should  be 
used  only  at  sea  level  stations  (ships  or  near-sea  level 
land  installations);  the  dry  component  of  Eq.  (D.  13)  is 
based  on  standard  sea  level  pressure  and  the  wet  compo¬ 
nent  on  a  marine  rather  than  a  continental  climate. 


For  a  little  more  accuracy,  the  following  can  be 
used  instead  of  Eq,  (D.  1 3): 


(Af)tro}d  =  Kd  P  CSC  VE2  +  6d2 


(Ap.  )  =  K  esc  i/E2  +  0  2 

tro  w  w  Y  w 


(D.  14) 
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Here  P  is  the  observed  local  pressure  (near  an¬ 
tenna  height).  The  parameter  Kd  is  a  constant  and  Its 
value  has  been  quite  precisely  determined  from  upper 
atmosphere  data  and  theoretical  considerations.  Its  cur¬ 
rent  best  value  is  =  2.  270  x  10"6  km/millibar.  Using 
this  value  and  the  pressure  P  expressed  in  millibars, 
(Aptro)d  will  be  in  kilometers. 

The  parameter  Kw  is  not  a  constant  but  varies  with 
latitude,  season,  and  weather.  An  estimate  may  be  made 
on  the  basis  of  qualitative  observations  and  the  observed 
average  values  presented  in  Table  D-2. 

Table  D-2 

Values  of  K  for  Selected  Places  and  Times 
w 


K 

w 

Place,  Time 

—  Q 

0.  28  x  10  km 

Tropics  or  midlatitude  summer 

0.  20  x  10"3  km 

Midlatitude  spring  or  fall 

0. 12  x  10'3  km 

Midlatitude  winter 

0.  05  x  10"3  km 

Polar  regions 

The  needed  total  range  correction  Ap{ro  for  a 
single  arriving  ray  is  approximately  2.  5  meters  in  the 
zenith  direction  and  90  meters  at  the  horizon.  The  sim¬ 
plified  expressions  of  Eqs.  (D.  13)  and  (D.  14)  are  not 
very  good  at  the  horizon  but  are  very  good  approxima¬ 
tions  at  elevation  angles  higher  than  5*  and  quite  good  as 
low  as  2°,  with  the  following  parameter  values: 

9d  ■  2.  5° 

0  -1.5°. 
w 

Uncorrected  tropospheric  errors  do  not  affect  navigation 
in  the  aiong-track  direction  unless  there  is  a  preponder¬ 
ance  of  data  at  one  end  of  the  pass.  When  symmetrical 
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amounts  of  dat-.  are  present  at  both  ends,  the  uncorrected 
troposphere  affc-cis  only  the  apparent  slant  range  (or  coor¬ 
dinates  depenJent  on  it). 

The  average  tropospheric  effect,  if  uncorrected, 
pushes  the  navigator's  position,  obtained  from  a  whole 
pass,  approximately  20  meters  toward  the  orbit  in  sl.nt 
range  for  a  high  pass,  and  nearly  80  meters  for  a  15° 
pass  (elevation  15°  at  closest  approach).  An  error  of  1% 
(10  millibars)  in  the  pressure  P  used  for  the  dry  com¬ 
ponent  in  Eq.  (D.  14)  affects  the  total  range  correction  by 
not  quite  1%  (both  the  point-by-point  correction  and  the 
effect  on  navigated  range).  An  error  of  0. 1  x  10"3  in  the 
magnitude  of  Kw  (e.  g. ,  0.  20  x  10"^  instead  of  0. 10  x  10“^) 
affects  the  total  range  correction  by  approximately  4% 
(both  point-by-point  and  the  effect  on  navigation). 

The  dry  component  generally  contributes  90%  or 
more  of  the  total  tropospheric  correction  at  the  higher 
angles  (though  the  relative  importance  of  the  wet  contribu¬ 
tion  increases  at  lower  angles,  especially  below  5°).  If 
local  pressure  is  known  to  a  millibar,  the  error  in  the 
dry  component  is  negligible  aside  from  the  cosecant  fac¬ 
tor,  and  that  error  is  small.  Most  of  the  uncertainty  is 
due  to  the  wet  component,  which  (fortunately)  is  itself 
much  the  smaller  component.  The  residual  error  in  us¬ 
ing  Eq.  (D.  14)  should  be  under  10%  on  the  average. 
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Appendix  E 

COMPUTER  PROGRAM  FOR  GEODETIC  COORDINATE 

TRANSFORMATION 


The  following  section  is  a  paper  which  describes  a 
technique  for  performing  Geodetic  Coordinate  Transforma¬ 
tions  between  ellipsoids.  Although  the  procedure  that  has 
been  developed  employs  approximations,  it  is  felt  that  any 
inaccuracy  introduced  by  these  approximations  is  out¬ 
weighed  by  the  simplicity  of  the  resulting  equations. 

The  technique  described  has  been  programmed  in 
Fortran  for  the  7094  computer,  the  Hewlett  Packard 
2115A  computer,  and  also  the  Honeywell  H-21  computer. 

In  order  to  improve  the  accuracy  of  the  computa¬ 
tion  some  minor  modifications  have  been  made  to  the 
equations.  These  modifications  are  described.  A  Fortran 
listing  of  the  program  and  a  sample  printout  generated  by 
the  program  are  also  presented. 

PRECEDING  PAGE  BtANK 
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fto  porpoaa  of  thi*  papar  la  to  dlaaaalnata  raault-i  of  taohaloal 
mowt  to  aotlwltiaa  angafad  (Hm7  and  ralatod  avhjaota. 

Tha  opinion*  ajyraaaad  In  *11*  raport  ara  ttaoaa  at  tha  agritar 
ant  ahovld  sot  ha  oonaVruad  aa  naoaaaariiy  ooinoldin*  with  Air  Poroa 
Aeotrina.  ft*  art  tar  alon*  aaarwaa  tba  raaponaibl.  ,tjr  for  tha  aall- 
dlty  ant  aoonraoy  of  nathanatiaal  data  oontalnad  hur.la, 

A.'j  raport  doaa  not  oontaln  lirioia^Sa  or  notarial  of  a  oopy- 
rlahtad  natura.  Eaproioetiop  in  who  la  or  L'  part  la  pajnlttad  for 
any  pwpoaa  of  tha  Stataa  Oo  warm  art. 

U9i  op  lpparoias 

A*  Potation. 

II.  Porwula  for  Traaafozaatloa  of  Cooidinataa. 

C.  Poraola  for  OiangMt  In  Slatanoa  and  Asia  atm. 

D.  Xaanlta  cf  franaforution  of  Coordlnataa. 

S.  Xaanlta  of  fraatfonatlon  of  Aalantha  and  niatanaaa. 

».  Ufaraneaa. 


-  245  - 


1.  Purpose.  The  purpose  of  the  twU  vac  to  ItUnlM  the  aooursuy 
ni  tha  adaptability  to  eleotroalo  and  oaohlne  ooaputlng  of  tao  for¬ 
mulas  tor  transformation  of  (aodatlo  data  tat— —  raff  oe  ellipsoids. 
Tbaaa  formulas  ars  taipai  fori 

ai  Transformation  of  latltuds,  lontfituda,  and  geodatio  height 
(rsf.  [5]  sad  App.  B). 

b.  Coaputatlon  of  obangss  Is  geodatio  dlstanoa  and  aslautbs 
dus  to  traasf oraation  of  ooordlaat—  (rsf.  [6]  aad  App.  C). 

2.  Participating  Or— nlsatlona .  ths  1373rd  liapplnt  aad  Charting 
Squadron  (data  Control  Division)  provided  position  aad  Invars*  compu¬ 
tations  performed  on  BSOOhP  II  ooaputar.  Tbs  1381st  Osotetlo  3urrsy 
Squadron  (Bata  Seduction  Division)  partoraad  bsad  ooa putatlo—  — 

—11  as  alootronlo  transformations  of  ooerdl— t—  on  BPC  *000  ooaputar. 

3.  Oansral  Information. 

a.  Too  formulas  of  dppondisao  B  aad  C  ooastltuta  a  projso tlvo 
method  at  ohaaga  of  alllpsold,  aa  distinguished  from  development 
astbods  of  earlier  daps,  fas  ohaxmoterlatl—  of  tbs  t—  kinds  of 
solution  ars  a— ear-lead  Mm. 


b.  figure  1  sho—  points  P  aad  ^  is  spa—  aad  a  profile  of  a 
porpo'idloular  ssotion  through  thaw  points.  Curved  11a—  represent 
ellipaold  — d  gsold  surf— 

t  P 

and  straight  lines  represent  »  , 

normals  to  sllitaolda.  dashed  "  ^.”<3—1#.  " 

lines  referring  to  tbs  old  elllpe-  ' 

old.  The  an—  of  tha  t—  snipe- 

olds  arm  — a— sd  to  bo  mutually  \  \  /A* 


parallel. 


aad  ^  are  tbs  pro¬ 


jections  of  t  aad  q  up—  tbs  old 
ellipsoid  aad  Pa  aad  ^  are  their 
projeotia—  up—  tbs  a—  ellips¬ 
oid.  The  separation  of  ellipsoid 


figure  1. 


ourfeo—  at  P  is  given  by  the  gist——  ■  p^a,  with  a  slallar 
situation  existing  at  Q.  tha  goods tio  list—  —  tbs  old  ellipaold 
is  tbs  oxo  aad  —  the  mav  ellipaold  it  la  Ba^»  The  straight 
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line  (spatial }  dlatanoe  PQ  real  Ins  obviously  the  saae  before  nd 
■flu  the  transformation. 

o.  It  ia  aaan  froa  Figure  1  that  the  effeot  o*  a  projective 
aathod  of  transformation  ia  to  raplaoe  an t  reorient  the  referenoe 
ellipsoid,  leaving  all  points  in  the  ease  position  in  space  aa  they 
mare  before  the  «h*egs  took  plaoe.  It  follows  that  the  angle  between 
ujj  two  straight  lines  Joininr  poin  »«•  in  space  auat  be  the  aaae  before 
and  after  the  transformation. 

d.  Thua  the  projaotive  aathods  approach  the  problem'  in  a  truly 
rigorous  wax  but  they  oannot  raaove  the  errors  existing  in  the  net 
das  to  errors  of  the  survey,  which  includes  errors  caused  by  the 
redaction  of  distances  t a  the  gsoid  instead  of  t*>e  ellipsoid.* 


e.  Krrure  due  to  reduction  of  bases  to  the  geoid  instead  of 
the  ellipsoid  are  negligible  ia  geodetio  nets  of  United  extent  if 
the  ellipsoid  fits  the  geoid  reasonably  well  and  if  the  two  surfaces 
eolaolde  at  toe  origin.  Herring,  ref.  [2],  states  that  in  the  United 
States  the  geoid  departs  froa  the  ellipsoid  by  only  1  aster  at  the 
distanoe  of  30°  froa  Headae  Ben oh.  Taking  0.5  a  as  tbs  average  de¬ 
parture,  sa  oan  oaloulate  the  error  in  geodet.u  distanoe  due  to  this 
separation  oa  laoa  than  0.3  a  at  3000  Pm,  or  1  part  in  10  Billion. 
This  is  auoh  lass  than  the  oxpacted  error  in  aeesuraaent  of  e  single 
line  in  Hiran  tri late ration  and  certainly  such  less  than  the  error 
expected  to  aeeiBUlate  through  ran don  errors  of  observation  even  in 

a  aost  precise  geodetio  survey. 

f .  The  develops ent  methods  of  transformation,  such  ss  are  given 
in  ref.  [3]  and  [7],  disregard  the  separation  of  geoid  and  ellipsoid 
aiixfsosa  and  oonsldsr  the  distances  and  angles  as  the  seas  on  both 
ellipsoids.  The  effeot  of  a  development  net'  s  to  xeooapute  the 
net  point  by  "mint  ou  the  now  ellipsoid  using  cld  observational  date, 
day  point  taVsn  at  random  oannot  bo  transformed  until  tbs  conversion 


•The  rise  or  fall  of  the  geoid  with  respeot  to  the  ellipsoid  aey  ho 
obtained  by  astronoalo  or  gravlsstrio  surveys  or  by  a  ooablnatlon  of 
both  aathods.  Astronoalo  determination  of  geoid  heights  requires 
observations  for  aatr-onoalc  latitude  end  longitude  at  niaerous  stations. 

2 
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baa  been  extended  to  it  from  the  origin.  Tha  new  nat  will  not  natch 
tha  old  one,  that  la  apatial  diatanoaa  and  plana  angina  will  ba 
chan  gad  in  transformation.  Tha  dawalopaant  aotbod  nj  ba  oontidarad 
proper  for  local  neta  whan  tha  naw  alllpaold  ip  sasueed  to  fit  ths 
geo id  batter  than  tha  old  ona  but,  whan  wiaaad  as  a  transformation 
metuo-i,  it  la  an  approximation  and  an  inconvenient  ona.  It  fails 
lr.  tranaf oraatione  of  global  extent,  in  which  case  the  departure  of 
tha  gaold  from  an  earth-centered  ellipsoid  of  bast  fit  say  ba  quit* 
large  in  any  given  area,  such  aa  50  waters  or  aora. 

4.  Tasting  Procaduraa. 

a.  Starting  from  stationa  20,  50,  and  80  in  latitudes  20°,  50°, 
and  80°!(  respectively  and  in  longitude  65°£,  position  coaputatiocs 
ware  perf creed  on  Clarke  1866  Ellipsoid  at  diatanoaa  2000  ha  and  in 
srlautha  90c,  125°,  and  180c  aa  rhovn  in  Figure  2. 

b.  In  each  group  tha  ends  of  tha  lines  wars  oonneoted  by  inverse 
computations  to  fora  a  quadrilateral  with  diagonals. 

o.  All  stationa  war*  transformed  to  International  Ellipsoid 
oriented  with  hx  -  90.5C-4  a,  by  a  108.335  a,  and  Ss  «  100.000  a. 

This  separation  of  ellipsoid  oantare 
uts  computed  froa  arbitrary  data  at 
the  origin  ohosan  at  0  -  4o°E,  A  •  5°K. 

Oeodatic  heights  at  stations  22,  52, 
acid  82  wars  assumed  as  1000  a  and  at 
all  othar  stations  as  aero.  Tha  trans¬ 
formation  formula  used  was  that  of  ref. 

[5j  as  shown  in  Appendix  B.  S vaults 
arm  shown  in  Appendix  D. 

d.  Changes  in  distanoe  and  a sleuth  wars  oomputsd  orcmr  all 
lines,  us* •  j  the  formula  of  xafersnoa  l6j  as  shown  in  Appendix  C, 
Than,  using  ths  International  Ellipsoid  values,  rigorous  inverse 
oomputstions  as) s  performed  over  all  lines.  Bssulto  ora  shown  in 
Appendix  E. 


23 


Figure  2. 


3 
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e.  The  l3ttlst  Oeodetlo  Surrey  Squadron  additionally  tested  the 
eoordltaie  transformation  formula  against  the  Venlng  Helnees  for- 
■ala  bj  tramlatlng  all  stations  fron  lorth  Aaerloan  192?  Batin  to 
MB  60,  mint  both  progress.  The  dlffereaoee  in  raaulta  are  ahown 
to  Appendix  0. 

5.  Anal  ala  of  Eaaulta. 

a.  Haf.  [2]  analyses  thraa  projeotlwe  aathoda  of  coordinate  traaa- 
foraetjon,  tha  apeos  ooordlnata  tranaforaatlon  formula,  Baldini  for- 
aula  (ref.  [1)),  and  Vaning  Helnees  foraula  (raf.  [41).  Ona  of  tha  con- 
olualoua  raaobad  la  that  tha  Tanlng  Halnaaa  foraula  la  tha  laaat  aoou- 
rata  at  tha  thraa. 

b.  Haf.  [5]  ooapares  a  proposal  foraula  with  tha  Baldini  and 
Toning  Halnaaa  fora  ulna  and  oo.ioludss  that  It  la  tha  alaplaat  and 
tha  aost  aoourata  of  t>a  throw.  Its  simplicity  for  both  electronic 
and  an  oh  las  ooaputlng  la  duo  chiefly  to  tha  faot  that  It  takas  adwan- 
taga  of  aararal  oonatanta  whloh  ara  prsooaputad  onoa  and  for  all  for 
any  particular  «t»«(|»  of  alllpaold.  Tn  addition.  It  paralta  aooueule- 
tlon  of  products  without  tha  naoeealty  for  raoordlng  in*-reedlate  ra¬ 
aulta.  Ita  aoouraay  In  auoh  oaras  as  say  occur  in  praot.os  la  shown 
to  ba  of  an  order  of  0.05  *  at  a  dlatanoa  halfway  around  tha  world 
tram  tha  origin  (excluding  areas  In  the  laeedxate  wlolnity  of  tha 
polos),  with  arrora  warylng  waxy  slowly  batwaan  distant  points. 

o.  Appendix  X  rhowa  the  largest  errors  for  a  2000-ha  line  to  ba 
0.010  a  in  dlatanoa  and  0*.00l4  Is  aslauth,  whloh  represents  propor¬ 
tional  errors  of  li200  alllion  and  l>l4o  aillion  rerpeotiwely.  How- 
swor.  la  rigorous  oosputatlons  tbs  dla agrees snt  between  forward  and 
In wares  ooaputatlon  results  was  fotnd  to  be  qp  to  0.005  n  i.  dlatanoa 
and  qp  to  0".0007  la  aalawth,  thsrofors  tbs  waluas  In  oolnaa  (3) 
oanaot  all  ba  sorrost  to  tbs  last  figure  glwwn.  Consequently,  actual 
snare  should  ba  aaaliar  than  those  shorn  la  ooloaa  (5).  Slightly 
larger  oners  are  to  be  expected  whan  the  ohaags  of  the  ellipsoid 
is  aors  wlolsnt  than  that  shorn  la  this  sxasple. 
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d.  Tha  ooordlnata  tranafo.-aation  foraulA  of  Appendix  B  ia  wary 
>•11  suited  for  both  alaotronlo  and  aaohlna  ooaputing.  It  waa  pro- 
graaaad  for  tha  RPC  4000  ooaputar  by  tha  1381st  Oaodatlo  Surray  Squad¬ 
ron  quickly  and  without  difficulty.  That  aquadron  ratad  hand  ooapu- 
tatlona  inmlTing  this  formula  on  a  aoala  of  lnoraaalng  dlffloulty 
fro#  1  (rapraaantad  by  Hlran  a  inlaw  aua  ooaputation)  to  10  (rapra- 
aantad  by  Blran  AH  and  AB  ooaputation)  and  gsra  it  a  rating  of  3. 

Tha  avaraga  tiaa  for  oocplatlng  tha  oeaputatlon  fora  aaa  dataxalnad 
a a  about  25  alnutaa. 

a.  Tha  foraula  of  Appandlx  C  is  aaay  for  uaa  with  a  calculator 
baot.uaa  of  fa>  significant  figuraa  and  no  lntarpolatlon  raquirad. 

Tha  IdSlat  Squadron  gaaa  it  a  rating  of  5  ca  tha  saaa  aoala  of  dlffl¬ 
oulty  aa  In  paragraph  5d  af  tar  data  raining  that  tha  avaraga  tiaa 
naoaacary  to  ooaplata  tha  fora  aaa  about  *0  alnutaa.  It  la  baliavad 
that  this  rating  la  a  littla  too  paaalnlstlo  and  that  i-oavutationa 
should  bo  ooaplatad  within  30  alnutaa,  particularly  for  short  llnas 
or  Mian  lasaar  aoouraoy  la  aooaptabla,  aa  In  Blran  trl la to ration . 

f .  Bo  pro  gv  aaa  log  of  tha  foraula  of  Appandlx  C  waa  oidartakaa, 
but  It  la  baliarad  that  this  should  pi  as  ant  no  dlffloultlaa.  Tha 
ooaputar  tiaa  should  bo  a  fraotlnn  of  tha  tiaa  raquirad  to  na  an 
inwsraa  ooaputation.  If  thia  foraula  vara  to  bs  pro  gr  aaa  ad  asparataly 
In  tha  fora  aa  glvan  hars,  it  would  roquixs  aa  Input  of  amwaral  quan- 
tltisa  (old  poaitloaa  and  almtloao,  nhangaa  in  0,  A.  and  B,  old 
dlatanoo,  and  old  aalautha) .  Bowavar,  it  oould  ha  prograanad  la  osa 
paolaga  togathar  with  tha  ooordlaata  traaaforaatloa  foraula.  la  whloh 
oaaa  tha  only  additional  Input  data  would  bs  old  dlatanoo  and  old 
aalautha. 

6.  Conolualona. 

a.  Tha  faraulaa  of  Appmllrwa  I  aad  C  oan  bs  adwaatagaoualy 
adoptad  for  hand  ooaputlag  whan  tha  alaotvanlo  ooaputar  la  lnopara- 
tlwa  or  In  uiv  for  hl^ar  priority  proloots.  In  this  oaaa  all  oon- 
staats  should  bo  praoonputa*  and  prlatad  on  tha  ooaputation  fora. 
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Alternatively,  ft  tea  activity  oonoarnad  has  oor.teot  with  arraral 
allipaolda,  tea  arraral  sate  of  00  n*  tent*  oaa  ba  a  bon  on  a  aaparata 
ahsat. 

b.  fha  formula  cf  Appandlx  B  oaa  ba  prograaaad  for  aa  alaotronio 
ooaputer  In  a  fa*  boors,  or  la  audb  lasa  tlaa  than  it  took  to  typo 
this  ra port.  Pros  tea  aoouraoy  point  of  via*  tea  Vanlng  Halnasa 
formula  tel  oh  many  aetlTltlaa  aov  usa  la  aatlafaotoi7.  Hovavar, 
after  a  aa*  aorld  (sodatlo  ayataa  la  praaorlbad,  aa  *111  oartalnly 
bappaa  In  tea  futura,  thara  *111  ba  no  raaaoe  for  i»lng  tea  Tasl ng 
Mainaaa  foraola,  slaoa  Malar  aad  aora  aooarata  aateoda  ar*  no* 
aval  labia. 

o.  fha  foraola  of  Appandlx  C  oan  ba  ateluatad  by  aaoh  aotlvity 
00  no*  mad  to  dataislna  teathar  .t  aoald  ba  aora  profitabla  to  pro  gran 
it  or  to  eontlnua  tc  oaa  invar**  coaputatlons,  lapondlag  on  oparatlonal 
raqulraanta. 
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AFPOntZX  A 
■OTATIOI 

0,  A  m  goodotlo  latitude  aad  longitude.  X  position  Mat. 

H  -  heigh*  of  point  >bon  ellipsoid  (  goodotlo  height), 

a  •  oslauth  of  th*  iooImIo,  olookslse  free  north. 

3  •  goodotlo  die ton oe. 

>,  b  -  nojor  and  nlnor  nalUM  of  tho  ellipsoid. 

.  -  (a2  -  b2fte  •  first  eooeotrioltjr. 

a  •  o'  /(I  -  e  )  -  tho  square  of  oeoood  eooeetriolty. 

2  2  «4 

V  •  rodluo  of  ourrmturs  In  tho  prino  vertioal  •  ((1-o  oln  p)  *. 

H  •  opproxlaoto  radius  of  tho  Earth. 

1  “  *t*o  ♦  V* 

*  -  **o  *  *n^* 

x,  y,  s  •  rectangular  spaoo  coordinates,  i.o. 
x  -  (I  ♦  H)ooa0  oooX 
y  •  (■  ♦  H)ooa0  sinh 
s  -  [1(1  -  a2)  ♦  H]oi;0. 

80,  8h,  bH  -  0n  -  0Q  oto.  a  shifts  In  latitude,  longitude  and  goodotlo 
holght.  SI  la  tho  hoight-  of  tho  old  olllpaold  a  bn  to  tho 
nos  one. 

Sx,  8y,  8s  a  rsotangular  ooaponanta  of  separation  of  elllpcold  oantora. 
8a.  8o2  -  s^  -  a0  aad  o2  -  a2. 

8a.  hS  -  On  -  oq  «ud  3fl  -  S0. 

Subaarlpts  o  sou  n  rsfar  to  tho  old  and  the  a aw  olllpaold  roepeetlwoly. 
Subeorlpts  1  aad  2  rsfar  to  tho  ends  of  a  goodotlo  Has.  Oj  la  tho 
forward  asiauth  and  o^  la  tho  bock  aslauth. 
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(u) 

(ib) 

(lo) 


iPflBBIX  B 

rourou  bob  nnsfoauiia*  o t  ccanmie 

nhangit  1a  latltuda,  londtoda,  and  eaodatlo  haigbtc 
8^*  •  [  (A^ooaX  ♦  A2slaA)ala#  ♦  Ajooa0]v  ♦  (kpiiPf  ♦  AjJala^ooajf 

Uf  -  (AjAIAX  -  tjANl)!  M«0 

is  -  (B^aaaA  a  B^alnX)ooa0  ♦  Bjainrf  ♦  *4»in20  ♦  B*ain*j<  ♦  *)6 

to  laapata  tba  iaparatlon  of  alllpaold  oantan  If  obancaa  In  latl- 
toBa,  iMfttat*!  and  aaodatlo  balgfet  ara  known  at  any  point » 

8k  •  ^(C^ala^  oo off  ♦  CjS^ain#  ooal  *jjj  CjSX’rlnA  ♦(SB+CjJooak  ooajf  (2a) 
8gr  ■  ^(O^ala^  ooa0  >  C26^*)aln#  alnX«-j-  jCgSVaAol.  ♦(SH+CjialnX  ooa0  (2b) 
8a  -  -  ^(Cjalal  ooa#  ♦  CjS^'Jooa^  +(SB  ♦  Dj  ♦  »2aia20  ♦  Djalnfyslnjf  (2o) 

tba  follovlac  ara  ooaataata  abiob  My  ba  praooaputadi 

C1  -  i  t  U  a  8a2 

C2  -  -  4  Bin  1" 

Cj  •  8a 

Bx  -  [1  -  *(l-*)]Sa  -  U  8a2 


b2--*5 
B>  -  -  *  d2Sa 


ij  ••  (oao  l*/4)  Si 
*2  -  -  (oao  l»/4)  Sy 
Aj  «  (oao  l*/i)  8a 
1^  •  -  Jl  oao  1"  8a2 
d,  -  [(«/4)8a  ♦  (l*d)da2]oao  1- 
Bj  •  8* 

>2  »  Sy 
>3-  8a 

>4  •♦*8aai4  8a2 
1, -*>2Saa^i  4  8a2 

Additionally,  Y  -  1  ♦  4(1  -  |ain2#)  and  V  -  1  -  *  a  sin2*. 

A bora  aquatloaa  ara  applloabla  to  a  point  on  tha  aurfaoe  of  tba  alllpa- 
old.  In  a  oenaral  oaso  of  a  point  at  halgbt  H,  aultlply  aaob  tan  In  S0 

“*  -  -  —  -  -  *l3  ' 


and  8x  la  <4.  (2)  by 


and  tba  raaulta  of  04.  (la)  and  (lb)  03 


(1-B/H),  whara  l/B  4  O.lS^* x  1 0"6  aatan.  Xlaraatlon  abonra  faold  nay  ba 
aubatlt-rtad  for  8  without  Introduolnc  an  appraoiabla  arror.  Hwa-f  lfura 
ooaputatioaa  ara  aufflolant. 
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APPENDIX  C 

FOHKULA  FOii  CEUN0K3  IM  DISTANCE  AND  AZD.UTBS 
’  “l  ♦  “2 

r  •  *(l  -  #1(2  -  ooaajooa2*^.,)  -  lfl 
0  «  S/r  / 

•in0a  *  ainj^ooalo  ♦  eoa^aiaio  oo.Oj 

ainAA  -  alrr*0  aina^aao^ 

XB  “  Aj  ♦  AX 

Sow  ooaputa  SB,  for  (fa,  XB)  by  eq.  (lo).  Than 

55  -  (SHj  ♦  4SB,  ♦  SH2)/6 

53  -  ..  0  55  ♦  i^ooaajS^  ♦  Hjooao^  ♦  (HjSXj  -  HjSXj.)  ooa^ainOj^ 
T  -  (B-,  -  H^/S  -i#(l+^»2) 

0  -  BlnOjS^  -  ooaj^ooat.j&A^ 

5ot  -  ainfljiXj  ♦  TO  -  ■£  ^ooaf^aina^  ooa^ooac^  -  £  fr  ainj^Sa2 
-  ^ooa^^^Jalno^SHj/B 

To  ooaputa  6b,,  uaa  (II),  (12),  and  (13)  with  autaorlpts  1  and 
2  rawaraad. 

8 4  and  6h  ara  in  radians. 

For  linaa  up  to  250  ka  oait  tha  0J  tars  in  aq.  (II)  and  uaa 
SOj  -  aln^jSXj  ♦  TU  ♦  -jj  ft2ooa2K^1+^2)ainO-6a2 

-  *  *  ooa^^j^jJaiao^d^lS 

For  ground  tri angulation  linaa  oait  (6),  (7),  and  (8)  and  taa 

55  -  ^(SHj  ♦  SI,) 

For  laaaar  aoouraoy,  aa  in  aarial  alaotronio  trilataration,  uaa 
only  tha  firat  tar*  of  aq.  (10),  .TBit  tha  tan  in  in  aq.  (n), 
and  oait  tha  laat  tan  of  aq.  (13). 

Fiwa-figun  ooaputationa  ara  auffioiant. 


(3) 

(4) 

(5) 

(6) 

(7) 

(8) 

(9) 

(10) 
(U) 
(12) 

(13) 


(13') 

(9*) 


XPP-  C,  pg  1 


-  254  - 


THE  JOHNS  HORKINS  UNIVERSITY 

applied  physics  laboratory 


^WISNJW^*^  *^TiS5&i£?2ESnr*1. 


•*"  '^-S^TITY*3-jTr=4iri5T; 


0 

A  MN  oonraniant  fox*  Of  equation  (6),  not  used  in  teat 
ooapuqationa,  la 

•l*4a  -  fcainj^  »  *la02)a*oift  (6,) 

further  aiap7.i.'loatloBa  of  aquation*  (6)  and  (?)  ax*  aonlarad 
tgr  u»in*  for  lira*  of  lntaxaedlata  length 

•la*.  -  *(•!«*!  ♦  •u¥2y(l  ♦  B  ®2)  (6-) 

ain&X  •  %  0  aia*^aaoffa(l  -  jy  ft2)  (V' 

Squat  lor".  (6*)  and  (?'}  vara  not  taatad  attentively  but  it  la 
ballavtt  that  tha  arrora  is  STL  *ua  to  tha'x  approxiuationa 
trill  net  ohanf*  tha  final  raault  t.j  aor*  than  0.005  a  at  1000  km. 


fl 


THfc  JOHNS  HpJH'NS  UNIVfH- 

a  -r-,  .en  PHYSICS  t_A3C»A 

SuvCM  SfM-no  M..V  AN[i 


APPEHDI/.  D 

RESULTS  CP  TBAHSPOHKATIO.'f  OP  COORDINATES 

Pro**  Clarks  1866  to  International  Klllpcoid  by  Tlnoanty  aetbod. 
ox  ••  90.904  a,  Sy  •  108.333  a.  8s  «  100.000  a. 


3TA 

i 

A 

a 

M 

SA 

sh 

20 

20°oo,ao'.,oooca 

65o00'0O!0000E 

0  a 

-1S5188 

-192591 

-36.124  a 

7  # 

21 

18  58  51.7574 

84  01  51.1926 

0 

-1.0883 

-2.7056 

-53.702 

j 

22 

6  50  01.2011 

77  41  18.3625 

1000 

♦1.C2J4 

-2.1398 

-47 .432 

23 

1  55  10.2032 

65  00  00.0000 

0 

♦2.7863 

-1.1843 

-41.888 

V  - 

50 

50  00  00.0000 

65  00  00.0000 

0 

-5.9800 

-1.8378 

-103.062 

51 

46  46  45.2454 

91  43  14.1278 

0 

-5.0107 

-4.4364 

-114.136 

*  • 

52 

36  01  24.5469 

80  37  35.9501 

1000 

-4.2157 

-2.9769 

-74.939 

33 

31  59  26.3418 

65  00  00.0000 

0 

-3.8651 

-1.3943 

-53  •’9* 

1  { 

90 

80  00  00.0000 

65  00  00.0000 

0 

-5.3982 

-6.7941 

-2oi.5o5 

*  » 

81 

69  33  49.1212 

126  44  47.5999 

0 

-2.9561 

-12.7110 

-205.195 

82 

64  03  27.2886 

94  49  06.5703 

1000 

-5.2304 

-7.3474 

-166.210 

»  f 

83 

62  04  27.4728 

65  00  00.0000 

0 

-6.3107 

-2.5208 

-143.585 

'J  • 

12. 

Proa  Clark a  1866  to  International  Kllipaoid  by  Tlnoanty  and  axaot 

spaoa  ooordinata  aathoda.  u,  By,  and  Ss  aa  above,  f  •  40  OO'OO'.'OOOOS, 
A  ■  95°00,00:0000K.  R  •  0.000  a.  (Tha  axaot  astbod  uaaa  aquations  for 
x,  y,  and  a  aa  a  bow  In  Appandlx  A  and  their  Invars#  forma,  a.  g.  [3]). 


Vlnosnty 

Exact 

Error 


♦9?^44o 

♦9.2<*2 

0.0002 


Sk 

-413ST56 


Sa 

•359.701  a 


4.2136  -229.696 

3.0000  0.0(5  (Total  arror  ■  0.007  a) 


III.  Proa  Jorth  Anarloan  1927  Datua  to  VOS  60  by  Tlnoanty  and  Yaniny 
Malnass  aathoda.  Only  tha  dlffarunoss  In  raaulta  (Tlnoanty  alnua  Tanlng 
Kelnaen)  an  flvaa. 


JC& 

& 

ASA 

3TA 

20 

♦090029 

♦090006 

52 

-090039 

♦090011 

21 

♦0.0028 

♦0.0010 

53 

-0.0038 

♦0.0006 

22 

♦0.0016 

♦0.0008 

80 

-0.0023 

♦0.0031 

23 

♦0.0009 

♦0.0005 

81 

-0.0022 

♦0.0040 

50 

-0.0042 

♦0.0008 

82 

•0.0032 

♦0.0026 

51 

-0.0039 

♦0.0016 

83 

-0.0037 

♦0.0012 
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APPBKUX  I 

ns ow3  or  sutsroKrmoi  or  azikoths  alj  distabcks 
CUrES  1066  Intsrn. 

LIB*  M.  As.  M.  As.  Ch»a«*  Vino*ntj 

teak  As.  Jc.oY  As.  Forauls 

_ Oao*.  iirtSMj  Oso*.  Hist.  I2M11 _ 


20-21 

9^00' 0010000 

59:8060 

-0:1940 

-0:i94o 

0:0000 

276  2*  0 9.3789 

08.2714 

-1.1075 

-1.1073 

0.0002 

2  000  0LV.000  a 

13.762  s 

13.762  a 

13.765  a 

0.002  a 

20-22 

135  00  00.0000 

59.8040 

-0.1960 

-0.1955 

0.0005 

317  58  31.2446 

30.8384 

-0.4062 

-0.4o48 

0.0014 

2  000  00  .000 

12.417 

12.417 

12.427 

0.010 

20-23 

180  00  00.00O0 

59.7576 

-0.2424 

-0.2424 

0.0000 

0  00  00.0000 

59.7720 

-0.2280 

-0.2280 

0.0000 

2  000  000.000 

11.213 

11.213 

11.205 

0.008 

21-22 

20?  54  07.8411 

07.1994 

-0.6417 

-0.6421 

0.0005 

26  28  33.6267 

33.0881 

-0.5386 

-0.5396 

0.0010 

1  509  168.813 

80.450 

11.637 

11.636 

0.001 

21-23 

229  57  45.3834 

44.8287 

-0.5547 

-0.5590 

0.0043 

46  26  25.4873 

24.9637 

-0.5236 

-0.5280 

0.0044 

2  804  710.238 

29.445 

19.207 

19.187 

0.020 

22-23 

249  28  2/. 389 3 

2I.43K 

*0.0421 

♦0.0426 

0.0005 

68  30  04.0390 

03.6669 

-0.3721 

-0.3711 

0.0010 

1  509  158.629 

69.019 

10.39C 

10.385 

o.oo5 

50-51 

90  00  00.0000 

50.5315 

-0.4685 

-0.4684 

0.0001 

290  08  48.8458 

44.6886 

-4.1570 

-4.1563 

0.0007 

2  000  000.000 

34.001 

34.001 

34.009 

0.008 

50-52 

135  00  0C.0000 

59.3588 

-0.6412 

-0.6413 

0.0003 

325  46  29.9818 

27.5698 

-2.«120 

-2.4115 

0.0005 

2  000  000.000 

27.606 

27.606 

27.610 

0.004 

50-5 

180  00  00.0000 

58.7793 

-1.2207 

-1.2206 

0.0001 

0  00  00.0000 

-9.3739 

-0.9260 

-0.9260 

0.0000 

2  0U>  000.000 

24.108 

24.108 

2*. 108 

0.000 

51-52 

221  39  08.1628 

04.8215 

-3.3413 

-3.3404 

0.0009 

34  16  12.2452 

10.6256 

-I.6196 

-i.61,'3 

0.000? 

1  509  294.352 

18.582 

22.230 

22.227 

o.oo3 

51-53 

243  42  55.0029 

51.1367 

-3.6662 

-3.8674 

0.0012 

46  25  56.9819 

56.7810 

-0.2009 

-0.2032 

0.0023 

2  804  850.319 

86.531 

36.212 

36.222 

L  010 

52-53 

257  16  44.4955 

42.3868 

—2.1087 

-2.1094 

0.0007 

68  29  46.0656 

45.7173 

-0.3483 

-0.3489 

0.0006 

1  509  276.249 

91.386 

15.137 

15.140 

0.003 

App.  i.  ??  X 
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*5351  5o»J  00:0000 
330  10  00. 3(47 
2  000  000,000  • 

00-82  135  00  00,0000 
243  41  24.3278 
2  000  000.000 

80-83  180  00  00. 0000 
0  00  00.0000 
2  000  000.000 

61-82  281  40  39.0634 
152  10  46.2197 

1  509  4i4,654 

81- 83  283  44  36.1541 

46  25  25.4062 

2  804  987.582 

82- 83  275  12  01.2084 

168  29  23.3547 
1  509  4o7.l76 


47.6204 

63.966  ■ 

54.0378 

16.9954 

57.779 

53.4949 

57.5863 

54.216 

26.8843 

39.8743 

58.589 

23.3688 

24.0379 

64.874 

53.9452 

21.7720 

43.844 


-5’jb4o8 
-12.7542 
63.966  ■ 

-5.9622 

-7.3324 

57.779 

-6.5051 

-2.4137 

54.216 

-12.1791 

-6.3454 

43.935 

-12.7853 

-1.3682 

77.292 

-7.2632 

-1.5827 

36.668 


“5  “8410 
-12.7542 
63.965  ■ 

-5.9622 

-7.3320 

57.773 

-6.5048 

-2.4134 

54.211 

-12.1789 

-6.3454 

43.91* 

-12.7849 

-1.3686 

77.297 

-7.2631 

-1.5826 

36.672 


0“0002 
0.0001 
0.001  • 

0.0000 

0.0004 

0.006 

0.0003 

0.0003 

o.ooS 

0.0002 

0.0000 

0.001 

0.000* 

0.0004 

0.005 

0.0001 

O.OOOl 

0.004 


699*  PC  ^ 
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FORMULA  FOR  TRANSFORMATION  OF  GEODETIC 
COORDINATES 

There  are  seven  parameters  used  in  this  computa¬ 
tion  which  specify  the  datums  involved  in  the  transforma¬ 
tion.  They  are: 

1.  A <p  —  The  semimajor  axis  of  the  reference  ellipsoid 

in  the  original  da+'-  .. 

2.  F<p  —  The  reciprocal  fl  -icning  of  tht  reference 

ellipsoid  of  the  original  datum. 

3.  AN  —  The  semimajor  axis  of  the  reference  ellipsoid 

in  the  new  datum. 

4.  FN  —  The  reciprocal  flattening  of  the  reference 

ellipsoid  of  the  new  datum. 

5.  DX  —  The  x-axis  origin  offset  between  the  two 

geodetic  systems. 

6.  DY  —  The  y-axis  origin  offset  between  the  two 

geodetic  systems. 

7.  DZ  —  The  z-axis  origin  offset  between  the  two 

geodetic  systems. 

The  equations  which  have  been  implemented  in  the 
program,  GEOCN  (Geodetic  Coordinate  Conversion  Pro¬ 
gram)  are: 

[2 
[(Aj  cosX  +  A2  dinX)  sirup  +  Ag  cos<pJ  V  +  (A4  sin  <p  +  A,.) 

si«p  coap]  [l  -  —  ] 

6X"  =  [<At  sinX  -  A2  cosXJ^^jJ  [l  -  5-] 

2  4 

6H  =  (DX  cosX  +  DY  sinX)  cos#  +  DZ  sinp  +  sin  <p+  sin  (C  +  B 
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where 

Ai 


^sXlux 

a 

esc  (1  ') 


a 

esc  (1") 


DY 


DZ 


A4  =  -0.  5  (*  esc  (1")  de  ) 

A  =  r(i)da  +(1  +Ode2]  esc  (1M) 

o  *-  a 

B4  =  0.  5  (a  de2  -  *  da) 

Bc  =  B  •  de2  -  (0  25)  (a  .  c  *  de2) 

b  4 

Bc  =  A <p~  AN 

b 

V  =  1  +  «(1  -  1.5  sin2(<p)) 


W  =  1  -  0. 5  *  sin2(<p) 

ip  =  Latitude  of  reference  position  in  original  datum. 

X  =  Longitude  of  reference  position  in  original  datum. 

H  =  Height  of  reference  position  above  reference 
ellipsoid  in  original  datum. 

From  the  preceding  paper: 

a  =  0.  5  (A<p  +  AN) 

,  (a2-bV/2 

a 


€ 


2 

e 


) 
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-  i<« +  o 


2  '  <p  n' 


da 


=  a  -  a 
n 


de 


2  2 

=  e  -  e 
n  o 


But  for  an  ellipse: 


=  a  (1  -  j) 


a 

b 

f 


=  Semimajor  axis 
=  Semiminor  axis 
=  Reciprocal  flattening. 


Then: 

b 


,Mx 
=  a  (— -T-  J 


b 

a 


fJ± 

f 


and 


a 

b 


i 

f-1 


•(t) 


1-e 


-  ‘  *W 
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I 

I 


I 

I 

I 

I 

l 

k 

-Sr 

’I 

i 


2  +  (_ EE. ) 

\FN-1  / 

("fn-i!2 
L  FN  J 
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FORTRAN  LISTING 

■  i 

-  1/3/69  VERSION  - 


1  FORMAT  (5X.F9.3.6X.F 10.4) 

2  FORMAT  (9X.F9.6. IX.F9.6. IX.F9.6) 

3  FOHMAT  (I3.3X.F5.0. IX/F7.4.1X.F7. 4. 2X. 

I  F5.0. 1X.F7.4. JX.F7.4.4X.F3.1) 


*£/> 


A  FORMAT  (2/  ) 

5  FORMAT  (  SX.23H1NPUT  STATION  POSITION  .//. 

1  29HSTA  LATITUDE  * 

2  36HLON01 TUOE  ANT.  HEIGHT  ./. 

3  29HNNN  SODD.  MM.MMMM  SS.SSSS  . 

4  36HSDD0  •  MM.MMMM  SS.SSSS  SMMMMM • M  ) 

6  FORMAT  <  5X. 34HGE0DGTIC  COORDINATE  TRANSFORMATION. 


IS/) 

7  FORMAT  <  5X.24H0R1GINAL  DATUM  -  A  *  .F8.3. 

I  I2H  KM  F  «  I/.F7.3.3/) 

8  FORMAT  (  SX.24HTRANSF0RMGD  DATUM  -  A  ■  .FS.3. 

1  I2H  KM  F  ■  I/.F7.3.3/) 

9  FORMAT  <  5X.5H0X  «  .F7.3.4H  'KM.5X.SHDY  ■  . 

1  F7.5.4H  KM.5X.5KDZ  *  .F7.5.4H  KM.3/> 

10  FORMAT  C  3X.22HREFERCNCE  POSITION  IN  . 

1  1  6H0RI  01  NAl.  DATUM  -.//> 

It  FORMAT  <  5X. I2HLATITUDE  -  .FS.0.5H  DEG  .F7.4. 

1  5H  MIN  .F7.4.SH  SEC  ./> 

12  FORMAT  <  5X. 12HL0NG1TUDE  -  .F5.0.5H  DEG  .F7.4. 

I  SH  MIN  .F7.4.3H  SEC  */) 

13  FORMAT  <  5X.22HREFERENCE  POSITION  IN  . 

I  I 9HTRANSF0RMED  DATUM  -.//> 

1*4  FORMAT  (  5X.7HDLAT  ■  .F8.4.4H  5EC.5X.7HDL0N  ■  , 

I  F8.4.4H  SEC.5X.5HDH  *  .F7.1.7H  METERS./) 

15  FORMAT  <  5X.7HDLAT  ■  .r8.4.4K  MIN. 5X. 7HDL0N  *  . 

I  FB.4.4H  M1N./7 

16  FORMAT  <  5X.7H0LAT  ■  .F8.4.4H  NM  >SX.7HDL0N  *  . 


I 

17  FORMAT  < 

I 

e 

IS  FORMAT  < 

19  FORMAT  l 

20  FORMAT  < 

21  rOKMAT  < 

1 

2 

22  FORMAT  < 

1 

2 


FB.4. 4H  NM  ./) 

SX.3HAI  ■  .E1S.8./.  5X.5HA2  ■  .E15.S./. 
3X.5HA3  ■  .CIS. 8./.  5X.3HA4  >  .CIS. 8./. 
SX.5HAS  ■  .£1,5*8.//) 

SX. 18HGE0IDAL  HEIGHT  -  .F8.1.7H  METERS. 4/) 

5X.7HED0T  •  #EI 5.8. 5X.6H0E2  ■  .CIS. 8. 8/) 


5X» 10HSTATI0N  .13.//) 

5X.27HINPUT  ELLIPSOID  PARAMETERS  ./. 
5X.27HSEMI  AXIS  RfC.  FLAT.  ./. 
5X.27HKKKK.KKKK  FFF.FFFFF  ) 
3X.27H1NPUT  ORIOIN  OFFSETS  ./. 


9X.29H0X  -  KM  DY  -  KM  DC  -  KM  ./. 
9X.30HSX.XXXXXX  SX.XXXXXX  SX.XXXXXX  ) 


KI*I 

K0»2 

CON* 4. 848 1  3661  IE- 6 

94  WRITECK0.2I)  •  ... 

READCKI .  1  )  fiO*FO 
READfKI.I)  AN.FN 
HRITC(K0#22) 

READCKI .2)  DX.OY.OZ 

100  WITE(KO.S)  '  •  . 

READCKI.3)  KSTA.RLATD.RLATM.RLATS.RLOND.RLONM. 
I  RL0NS.GH3 

PAUSE  -  384  - 

IFIKSTA)  99.101.101 

101  TEMP*  ADS(RLATD) 

n  6T4*4t <TFMr,*63.^RLATM)*40.*RLATS»RLATD) 


CLATR=-CLAT3-C0N 
CLOw.'.  -Ci.'“  iv3-  CO.i 
ADOT=  C  AO  ■*  A  \‘ )  /  2  • 

DFO=  t(FO-l.)/FO>  A 

6  FN=  C  (FH- ;  .  )/FJI)  /f(l^ 

0FO2-  DFO-DFO  / 

DFN2=  DFN^DFN 

ED3T=  <<1 ./D~32)  +  (l ./DFN2 ) )/2 . -  1  . 

DE2=  DF02-0F.\'2 
con a-  coNfAnrr 
cone?=  d::2/co.m 

GHCON=  (1 .-fGHO-1 .E-3J/A0) 

Al=  -DX/CO.\'A 
A2=  -DY/CONA 
A3=  DZ/C3N* 

A4=  -0.S"EDOT*CO\E2 

A5=  (EDOT/CO  '.'A)  ¥  C  AiM-AO  )  +  C  I . +ED)T) >  COiir.2 
CLAT=  COSCCLATR) 

SLAT=  SINCCI.OTR) 

C1.0N=  COS  C CLON'R) 

SLON-  SIN COLONS) 

S2LAT=  SLAT '•SLAT 
V=  l.+EDOTvCl  .-1  .S-:-S2LAT> 

W=  l.-0.5*E03T*S2LA7 

DLAT=  CCAI*CLOf'!+A2~SLO-N)‘SLAT+A3*CLAT)*V 
1  +  CA4*S2LAT+A5)-SLAT«-'LAT 

DLAT=  DLAT*3MC3N 
DLON=  CA1  *SL0.\’-A2-fCL0N)  *U/C LAT 
DLON=  DLON-GHCOV 
86=  ( AO - AN ) 

.  84=  <AOOT*DE2-EDO 7*36)*0. 5 
85=  B4*EG0T-3.2S*A0jT*ED0T»D£2 
DKXH=  <0X«-CL0i'l+0Y*3L0N)  «CLAT+OZ*SLAT 
1  ♦B4*S2LAT+BW32LAT«S2LAT)+36 

DH>i=  dh:<v.*=i  .E+3 
GKN=  GHO+DH'l 
DLATM=  OLAT/’GO. 

DLATN=  DLATf'i 
DLONK=  DLON/oO. 

DLONN=  DLON-l*CLAT 
EL4TS=CLATS+OLAT 
ELONS=CLONS+DLON 
TEMP=ELATS/362g. 

FLATD=IFIX<TE«?) 

TEMP  1  =.«  3S  C  ELATS-FLATD*363-3  .  )  /  63  . 

FLATM=IF  IXfTEr.Pl) 

FLATS--  CYEMP 1  -FL4TM)  *6  3 . 

TEMP2=EL0N3/3633. 

FLQN0=IFIXCTE::f>2) 

TE«P3=A3SCELON’S-FLOND«3693.»/60. 

FLO  NM= I F 1 X  CTEKP3 ) 

FL0N5=CTE>,IP3-FL0NM)*69. 

122  XONTIN'JE 
HRITE<K0,4)  ‘ 

WRITECXOjo' 

WRITE (K)» 7 )  AO.FO 
SSITC<XO>S)  ANj FN 
WRITE<K0»9)  OX.OY.nz 

123  WRITEOO.23)  KSTA 

t24  WRITECKO»IS>  -  265  - 

WRITECKO* II)  RL4TD,RLATM,RL4TS 
WRITE<<0»!2)  RLONO,RLON«,RLONS 
URITECK3.I3)  GKO 


I  ...  JM.IUUP!! 


F..4 


SAMPLE  PRINTOUT 


Or 


INPUT  ELLIPSOID  PAP.AMETERS 
SEMI  AXIS  RC0.  PLAT. 

KKKX .  XKKK  FP’f .  FFFFF 

6378.206  294.978 

6378. 1 44  293.230  / 

INPUT  ORIGIN  OFFSETS 

rr  -  to*  dy  -  km  dz  -  kk 
sx.xxxxxx  sx.xxxxxx  sx.xxxxxx 

-0.025  .173  .183 

INPUT  STATION  POSITION 


*0 


tin. 


uOt 


,  STA 
;  NNN 
1  « 

•  PAUSE 


LATITUDE  LONGITUDE 

SDOD.  KM.MIiMM  SS-SSSS  SODD*  SM.KMMM  SS-SSSS 

♦039.  9.8165  "  -076.  53.8643 


ANT.  HEIGHT 
SMMMKtl.M 

♦  145. 


-  *  i 
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GEODETIC  COOnOIWTE  TEANSFOftfttwION 

! 

» 

i 

! 

ORIGINAL  DATUM  -  A  =  63"S»2Q6  KM  F  =  1/294.978 

TRANSFORMED  DATUM  —  A  =  >3’5.144  KM  F  =  1/293.233 

DX  =  -.02503  KM-  DY  =  -.17303  KM  DZ  =  .18393  KM 

STATION  1 

REFERENCE  POSITION  IN  ORIGINAL  DATUM  - 


LAT. TVOS  - 

39.  DEG 

9.6165 

MIN 

•  0093 

SEC 

LONGITUDE  - 

-76.  DEG 

53.8643 

MIN 

•0303 

SEC 

GEO 1 DAL  HEIGHT  -  145.3  METERS 

REFERENCE  POSITION  IN  TRANSFORMED  DATUM  - 

LATITUDE  -  39.  DEG  9.3099  MIN  49.6375  SEC 
LONGITUDE  -  -76.  DEG  53.9999  MIN  51.2493  SEC 
GEOIDAL  HEIGHT  -  94*1  METERS 


DLAT 

=  .6799  SEC 

DLON  = 

.5193  SEC 

DLAT 

=  .0113  MIN 

DLON  = 

.9103  MIN 

DLAT 

=  .0113  NM 

DLON  = 

.0983  NM 

At  = 

. 8084769 5E+S0 

A2  = 

-.’ 5594675UE+91 

A3  = 

.591S9669E+31 

* 

A4  * 

.5149497 iE-31 

A5  = 

1531 2492 E+02 
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ED07 

=  .67775249E-02 

DE2  = 

-.73671341 

-59.9  METERS 
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Appendix  F 

GLOSSARY  OF  TERMS  FOR  NAVIGATION  SOLUTION 

COMPUTATION 


Term  or  Symbol 

Fortran 

Name 

Meaning 

A 

o 

AO 

Semimajor  axis  of  orbit  ellipse. 

DA(K) 

Incremental  length  of  semimajor 
axis  of  orbit  ellipse. 

a  . 
n.l 

Coefficients  in  the  navigate  equa¬ 
tion,  constant  for  any  hue  al  for 
which  a  doppler  count  is  obtained. 

c 

Speed  of  light  in  a  vacuum. 

cko(f,<P.x> 

Difference  between  measured  slant 
range  difference  and  theoretical 
slant  range  difference. 

d 

HEAD 

Navigator's  heading  at  estimated 
first  fiducial  time. 

AE, 

k 

DE(K) 

Incremental  eccentric  anomaly. 

€ 

E 

Eccentricity  of  satellite  orbit. 

T 

o 

EFRQ 

Initial  value  of  offset  frequency. 

T 

EFRQ 

Improved  estimate  of  offset  fre¬ 
quency  resulting  from  navigation 
operations. 

GMT 

Greenwich  Mean  Time. 

h 

Station's  antenna  height  above  mean 
sea  level. 

H 

Height  of  sea  level  above  reference 
geoid  at  statiorfs  position. 

h' 

GEOH 

Statiorfs  antenna  height  above  geoid 
(=  h  +  H). 
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A  * 


Term  or  Symbol 

Fortran 

Name 

Meaning 

KM-1 

KM-1 

Total  number  of  intervals  for  which 
doppler  counts  have  been  obtained 
during  a  given  satellite  pass. 

k 

K 

Index  identifying  the  intervals  dur¬ 
ing  a  given  satellite  pass 
(k  -  1,2 . .  KM-1). 

J 

Numbering  integer  for  fiducial 
times,  i.  e. ,  the  number  of  2-minute 
intervals  between  first  fiducial  in¬ 
terrupt  and  previous  GMT  midnight. 

L 

o 

WAVE 

Vacuum  wavelength  associated  with 
the  frequency  f  . 

<Lo  ’f* 

o 

n 

XNDT 

Mean  motion  of  satellite  (n  =  ^L). 

M(t) 

XMK 

Mean  anomaly  of  satellite. 

Nk 

DOP(K) 

Cycle  (doppler)  count  during  kth 
interval. 

Rk 

REF(K) 

Refraction  correction  count  during 
kth  interval. 

R 

o 

Radius  of  the  earth. 

sk 

Theoretical  slant  range  difference 
for  kth  interval. 

a 

s, 

ko 

Measured  slant  range  difference 
for  kth  interval. 

T 

Orbital  period  of  the  satellite. 

T 

c 

ETIM 

Reading  of  navigator's  clock  (GMT) 
at  first  fiducial  interrupt. 

t 

o 

Time  corresponding  to  the  first 
fiducial  time  interrupt  from 

ephemeral  data. 
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Term  or  Symbol 

Fortran 

Name 

Meaning 

STIM+4 

Time  at  which  navigator's  position 
is  computed  (time  of  fix). 

t 

p 

TP 

Time  of  satellite  perigee  (GMT). 

At 

P 

T 

Time  between  satellite  perigee  and 
first  fiducial  inte*  rupt. 

U,  V,  w 

Coordinate  system  fixed  with  re¬ 
spect  to  satellite  orbit  ellipse. 

V 

Navigator's  speed  at  estimated 
first  fiducial  time. 

X,Y,Z 

Coordinate  system  fixed  with  respect 
to  inertial  space. 

x,y,z 

Coordinate  system  fixed  with  re¬ 
spect  to  the  rotating  earth. 

x'.y'.z1 

Coordinate  system  of  satellite  with 
respect  to  inertial  space. 

B 

Angle  between  right  ascension  of 
ascending  node  and  right  ascension 
of  Greenwich. 

*e 

ELAT 

Navigator's  estimate  of  his  latitude. 

*«lx 

FLAT 

True  geodetic  latitude  coordinate 
of  the  navigator  at  time  of  fix. 

*k 

Navigator's  geodetic  latitude  at 
end  of  interval  k. 

A<P 

Improvement  to  geodetic  latitude 
resulting  from  navigation  equations. 

OJ 

SOME 

Argument  of  perigee  of  satellite 
orbit. 

to 

SGMD 

Rate  of  change  of  argument  of 
perigee. 
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Term  or  Symbol 

Fortran 

Name 

Meaning 

i 

Angle  of  inclination  of  orbit  plane 
with  respect  to  equatorial  plane. 

Xe 

ELON 

Navigator's  estimate  of  his  longitude. 

Xfix 

FLON 

True  geodetic  longitude  coordinate 
of  the  navigator  at  time  of  fix. 

Xk 

Navigator's  geodetic  longitude  at 
end  of  interval  k. 

Ax 

Improvement  to  geodetic  longitude 
resulting  from  navigation  equations. 

XLMG 

Right  ascension  of  Greenwich  at 
time  of  satellite  perigee  (i.  e. ,  hour 
angle  of  Greenwich). 

li 

COME 

Right  ascension  of  ascending  node. 

• 

a 

COMB 

Rate  of  change  of  right  ascension 
of  ascending  node. 

X  ,  ,Y  . ,z  , 
sk  sk  sk 

XS,  YS,  ZS 

Satellite  coordinates  in  X.  Y,  Z  sys¬ 
tem  at  interval  k. 

^nk'  ^nk'  ^nk' 

XN.YN.ZN 

Navigator's  coordinates  in  X,  Y,  Z 
system  at  interval  k. 

^k 

DN(K) 

Incremental  out-of-plane  ( cross 
plane)  component  of  satellite. 

aF 

Improvement  to  offset  frequency 
resulting  from  navigation  equations. 

We 

OMGE 

Rotational  rate  of  the  earth. 

f 

Flattening  of  the  reference  ellipsoid. 

PDAY 

PDAY 

Day  (GMT)  of  first  fiducial  interrupt. 

TPDAY 

TPDAY 

Day  (GMT)  of  satellite  perigee  (O. 

T 

o 

STIM 

Time  (GMT)  of  first  fiducial  interrupt 
(i.  e. ,  corrected  value  cf  Tc). 
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Appendix  G 

NONSTANDARD  NUMERICAL  COMPUTATION  ROUTINES 


In  order  to  write  a  digital  computer  program  to 
implement  the  navigation  solution  computations  and  alert 
computations  provided  in  this  document,  several  special 
numerical  routines  other  than  those  available  in  a  standard 
computer  command  repertoire  must  be  written.  These 
special  routines  are: 

a.  Sine, 

b.  Cosine, 

c.  Square  root, 

d.  Arc  sine, 

e.  Arc  cosine,  and 

f.  Arc  tangent. 

This  Appendix  will  provide  information  which  will 
allow  implementation  of  these  routines  using  standard  com¬ 
puter  instructions  of  add,  multiply,  and  divide. 

SINE,  COSINE 

The  algorithm  given  here  determines  Y  =  sin  ^  X  for 

-1  <  X  <  +1.  The  algorithm  given  is  that  given  on  page 

140  of  Ref.  16.  The  cos-|-X  is  determined  by  use  of  the 
equation. 


it  it  , 

cos  g-  X  =  sin  U  -  X)  . 

In  consideration  of  the  above,  the  theoretical  error  is 
only  discussed  in  terms  of  the  sine  function. 


-  273  - 


THE  JOHN*  HOPKINS  WVCMITV 

APPLIED  PHYSICS  LABORATORY 


If 

The  algorithm  to  be  used  in  the  solution  for  sin-^-  X 
is  the  Hastings  polynomial  approximation  for  the  sine 
function. 


sin  X  =  S 


i=0 


C2i+l  X 


2i+l 


where 


4 

Z 

i=0 


1.570 

796 

318 

47 

-0.  645 

963 

711 

06 

0.079 

689 

679 

28 

-0. 004 

673 

765 

27 

0.  000 

151 

484 

19 

..  =  1. 

000 

000 

005 

As  can  be  seen  by  the  value  of  E  C_  .  in  the 

7Ti=0  ^ 

above  table,  the  error  in  sin  y  at  y  for  the  Hastings 

approximation  is  5  x  10  if  all  coefficients  can  be  used 
as  given.  However,  since  a  minimum  word  length  of  37 
bits  would  be  necessary  to  achieve  this  minimum  error, 
the  error  presently  achieved  with  a  30-bit  computer  would 
provide  a  more  realistic  error.  For  a  30-bit  computer 
the  coefficients  can  be  expressed  such  that 


4 

Z  C 
i=0 


2i+l 


=  0.000  000  011 
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giving  an  expected  error  of  1. 1  x  10"8.  This  error  is 
within  -he  required  accuracy  for  the  computations  required 
by  this  document. 

ARC  SINE,  ARC  COSINE 

The  algorithm  given  here  determines  Y  =  sin-1(X) 
for  0  s  X  -<  1.  The  algorithm  is  that  given  in  Ref.  16  on 
page  163.  The  arc  cosine  is  determined  by 


The  algorithm  to  be  used  in  the  solution  for  sin  *  X 
is  the  Hastings  polynomial  approximation  for  the  arc  sine 
function, 

arc  sin  X  =  |  -  J X  -  X  i/>  (X)  , 

where 

tf(X)  =  aQ  +  axX  +  a2X2  +  a3X3  - . +  a?X7 


ao 

=  1.5707 

963 

050 

al 

=  -0.  2145 

988 

016 

4mt 

=  0.0889 

789 

874 

a3 

=  -0. 0501 

743 

046 

a4 

=  0.0308 

918 

810 

a5 

=  -0.  01 70 

881 

256 

as 

=  0.0066 

700 

901 

a7 

=  -0.0012 

624 

911  . 
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ARC  TANGENT 

The  algorithm  given  here  determines  Y  =  tan  *  (X) 
for  -1  sx  i  1.  The  algorithm  is  that  given  in  Ref.  16  on 
page  134.  The  algorithm  is  the  Hastings  polynomial  ap¬ 
proximation  for  the  arc  tangent  function. 


arctan  X 


4 

E 

1=0 


C2i+1  X 


2i+l 


where 


C1 

=  0.999 

8660 

C3 

=  -0.  330 

2995 

C5 

=  0.180 

1410 

C7 

=  -0.085 

1330 

c„ 

=  0.020 

8351 

SQUARE  ROOT 


The  algorithm  given  here  determines  Y  =  ^ X  for 
all  ranges  of  X.  The  algorithm  to  be  solved  is  given  as 
follows: 


a. 


Compute  an  initial 


approximation  to 


as: 


b.  Then  compute  by  Newton's  method 


A 


1 


1_ 

2 
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